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IDENTIFICATION 


PRODUCT CODE: AC-E662A-MC 

PRODUCT NAME: CZRXEAO RX02 FMTR PROG 
DATE CREATED: 25 JUL 78 

MAINTAINER: DIAGNOSTIC ENGINEERING 
AUTHOR : L.S. PRUCHA 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 
D T BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


AND SHOULD NO 
CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 


FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED 10 THE PURCHASER 
UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED 
(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 
SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OR 
ait OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 


COPYRIGHT (C) 1978, BY DIGITAL EQUIPMENT CORPORATION 
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1.0 


2.0 


2.1 


3.0 


4.0 


ABSTRACT 


THIS PROGRAM IS_ INTENDED TO FORMAT A FLOPPY DISK TO EITHER SINGLE 
OR DOUBLE DENSITY ON A DRIVE CAPABLE OF SETTING DENSITY ON A FLOPPY 
DISK. IT WILL RUN UNDER APT, BUT WILL RUN IN A USER MODE WITH 
SEVERAL SWITCHABLE OPTIONS 10 ENABLE A TESTING AND DEBUGGING. 


REQUIREMENTS 


1. ANY PDP-11 PROCESSOR 
2. RX02,XX SUBSYSTEM 


THIS PROGRAM REQUIRES AT LEAST 4K WORDS OF CORE. IF LOADING 
VIA XXDP MORE STORAGE WILL BE NEEDED FOR THE XXDP MONITOR. 


LOADING PROCEDURE 


re OF STANDARD BINARY LOADING PROCEDURE OR DOWN LINE LOAD VIA 


STARTING PROCEDURE 


1. USER MODE - START AT LOCATION 200(8) TO __ INITIALIZE 
scietasirticconsimnanie REGISTERS. 
- START AT LOCATION 210(8) TO RESTART TEST. 
- START AT LOCATION 220(8) TO ENTER DEBUG MODE. 
2. APT MODE - ALWAYS START AT LOCATION 200(8). 


SEQ 0003 
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5682 5.0 SOFTWARE SWITCH SETTINGS 

Prr'r4 aeeseeeeeeeeoe: ceaoeeecenen 

5685 1. USER MODE = THE SWITCH REGISTER IS SETUP FOR THE USER BY 

gear --------- THE PROGRAM VIA USER DIALOG. 

5688 SW15 1 = HALT ON ERROR —-—_— wwe + 

5689 QO = CONTINUE ; 

5690 

5691 Sw14 1 = EXTENDED ERROR REPORTS ’ + ewww nn nn enn ee = =~ == + 
5692 OQ = NORMAL ERROR REPORTS ; , ; 
5693 ' ‘THESE SWITCH SETTINGS! 
5694 Sw13: 1 = INHIBIT ERROR REPORTS ‘ARE AVAILABLE,BUT ARE! 
5695 QO = PRINT ERRORS '==>! INTENDED FOR HARDWARE | 
5696 : . DEBUG ONLY. 
5697 SW12 1 = BUS INITIALIZE ON ERROR IF LOOPING! 7 : 
aa 0 = NO BUS INITIALIZE ON ERROR $e nn nn nn - = == + 
5700 SWwO09 1 = LOOP ON ERROR : 

5701 O = CONTINUE — a eee + 

5702 

5703 

ae ear ne ne Re a 
5705 

5706 enenes SOF TWARE SWITCH REGISTER ‘inate 

5707 ; : ' 
ce ee cP Se SRN ie Sircec0 eg aT Sn afte aaa TEES ae eR TS ERE APRON ee ca Se 
La -15 '14 ! 13! 12! 11! 10! 09! 08! 07!06 '05 '04 '03 '02 '01 -O0 
5711 HOE EAT TER BU ; 'LOE!DBL!CRC! ’ ' : , 'S¥1!SYO! 
5712 SWR ! 'ER ! 'INT : : 'DEN!ALL! : ’ , : Lp Bs 
5713 St nn + 
5714 < ~ a a a 
5715 | - i ' ! f 

BN ge tee Pelt hen RRA oad es ME Ee Ae ane eg en Ne aereare NIRS UNE ge nO 
5717 

5718 

ee IIE ENS Tg ee SUE Tsu nent ac SEE easel ainsi bitchin iendenatateeninncts 

5720 ' THESE BITS ARE SET BY PROGRAM INTERFACE H . 
5721 ' TO USER - THEY ARE SHOWN HERE TO AID IN . | ee >. 
5722 ! . PROGRAM MAINTENANCE. 

St | Se ree eg RS RES ctl aso ee ee E + 

5724 

$725 2. APT MODE - THE APT SWITCH corp ae "‘SSWREG'’ MUST BE SET UP 

eT gut AS FOLLOWS: SYOSEL=1 (BITO) AND DBLDEN=1 (BIT) 

5727 FOR SETTING TO DOUBLE DENSITY. IF CRC CHECK ON 

5728 ALL TRACKS IS DESIRED THEN SET BIT CRCALL=1 (BIT?7) 

5729 SEE SWITCH REGISTER ABOVE. 
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6.0 


’.Q 


OPERATION 


THE PROGRAM OPERATION IN ‘USER MODE'' IS SIMPLE. AFTER INITIAL 

START THE PROGRAM ‘JILL ASK THE OPERATOR IF HELP IS WANTED AND 

WILL TYPE OUT A SHORT DESCRIPTION OF THE PROGRAM IF AN ANSWERED. 

YES. THE PROGRAM WILL ALSO ASK IF A FULL DISKETTE SCAN IS 

ie TO VERIFY CRC. IF ADDRESS MODIFICATION IS SELECTED THEN 
THE PROGRAM WILL THEN ASK THE OPERATOR TO ENTER THE BUS ADDRESS 

AND VECTOR ADDRESS. 


CONDITIONS OF OPERATION 


THE PROGRAM EXPECTS TO RUN ON AN RX02 INTERFACE AND RX02 DRIVE 
SUBSYSTEM THAT HAVE PASSED ALL DIAGNOSTIC TESTS. ERRORS ARE 
REPORTED, BUT PRINTOUTS ARE NOT EXTENSIVE ENOUGH TO DIAGNOSE 
HARDWARE FAILURES. 


PROGRAM DESCRIPTION 


THE PROGRAM IS ORGANIZED AS FOLLOWS: 


START 

DETERMINE IF LSI PROCESSOR 

IF NOT APT MODE, CALL OPERATOR INTERFACE 
SET UP REGISTERS 

CALL SYSTEM SCHEDULER 


SEQ 0005 


IF NOT APT MODE-CALL OUTPUT SYSTEM DONE (GET FURTHER OPERATOR INSTRUCTIONS) 


PRINT END OF PASS 
INCREMENT PASS COUNTER 
CHECK IF ACT MODE 

BUS RESET 


IF IDLE MODE SET THEN IDLE IN LOOP 
JUMP BACK TO ‘CALL SYSTEM SCHEDULER’’ 


G 
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BEGINROUTINE (MOD PROGRAM START + CONTROL) 
>: INITIALIZE STACK POINTER 
IF area FALSE 


N 
PRINT PROGRAM 5 hati MSG 
IF A as IS TRUE 


THE 
GET APT SWITCH REGISTER 
IF APT PROCESSOR_Q-BUS TRUE 


E 
SET LSI PROC PRI 
: SET PDP11 PROC PRI 
ENDIF 
GET APT VECTOR 
SET SYSTEM VECTOR 
GET APT BASE ADDRESS OF UNIT UNDER TEST 
-, GALL ADDRESSING TEST 
SETUP BUS TRAP FOR LSI PROC TEST 
SET PROCESSOR STATUS WORD 
IF LSI_PROCESSOR_STATUS_WORD_TRAP TRUE 


E 
SET LSI PROCESSOR WORD STATUS 
PP ty LSI PROCESSOR FLAG 


END 
CALL OPERATOR INTERFACE (MOD 1.0) 
SET VECTOR INTERRUPT ADDRESS 


ENDIF 
SETUP DENSITY Re SWITCH REGISTER 
CLEAR TABLES + FLAGS 
CALL MOD-TEST ADDRESS 
ENDIF 
CLEAR PASS COUNTER 
BGNDO 


CALL SYSTEM SCHEDULER (MOD 2.0) 
IF APT MODE FALSE 


THE 
: pct OUTPUT DONE (MOD 3.0) 
SET UP/PRINT END OF PASS + PASS COUNT 
INCREMENT PASS COUNTER 
IF ACT MODE TRUE 
: «RESET 

CALL ACT HOOKS 
ENDIF 
IF SYSTEM _FLAG=IDLE 
: THEN 


: ENDDO 
ENDROUT INE 


SEQ 0006 
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3829 

5830 fof PROGRAM FUNCTIONAL DESCRIPTIONS 

Be gh ol ag men ter ee ares ee 

ane THE PROGRAM WILL ACCOMPLISH THE FOLLOWING FUNCTIONAL ELEMENTS: 
ro 1. PROGRAM INITIALIZE SELECTED SYSTEMS + CHECK STATUS 

prt 2. READ MAINTENANCE STATUS ON SELECTED DRIVES + CHECK STATUS 
is 44 3. SET DENSITY ON ALL SELECTED DRIVES + CHECK STATUS 

5841 4. CHECK CRC ON TRACKS #76 AND #0 OR ALL TRACKS, IF SELECTED 
oe BY USER. REPORT STATUS, IF ANY ERRORS. 


5844 5. REPORT WHEN DONE. 


I 
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8.0 DEVICE REGISTERS 


WI 
e2] 
Wi 
Nm 
© 


READ STATUS ** MAINTENANCE MODE ** 
WRITE SECTOR WITH DELISTED DATA 


= READ SECTOR 
= SET DENSITY (RX02) ** BE CAREFUL TAKES 15 SECONDS *« 
= READ ERROR CODE 


5863 xaxee RXO2 REGISTER BITS *x««x 


5865 Bs a. 
5866 15 114! 13! 121 11! 10! 091 08! 07!06 '05 '04 !03 '02 '01 ‘00 | 


=< RXCS: |ERR! INT XM !RX2! ‘SIDIDEN!TR !IE !DON!DRV! FUN! FUN!F FUN: GO ! 


: !' WOR 
5871 ! COUNT 
5872 | ee me ee 
5873 BA: ! BASE 
5874 ' ADDRESS 
5875 | ee ee | 
5876 RXES:! x ! x iyeY xX ‘gins 7 'SID!DRV!DRV! DEL '!DSK! DEN! AC 'INT!SID!CRC! 
5877 : vt i 'OVF 'A1 '41 -RDY: DAT: DEN: ERR: LOW: DON: RDY ‘ERR! 
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5885 9.0 LISTING INDEX 
Ree we ye a 
5887 
5888 6042 BASIC DEFINITIONS 
5889 6069 ACT11 HOOKS 
5890 6128 APT MAILBOX-E TABLE 
5891 6130 APT PARAMETER BLOCK 
5892 6186 MODULE 7-8 - PROGRAM START AND CONTROL 
5893 6269 MODULE 1.0 - OPERATOR INTERFACE 
5894 6376 MODULE 1.1 = GET SYSTEM BUS ADDRESS + TEST 
5895 6432 ADDRESSING TEST. +. 
3896 6452 ERROR 1 UNIT NOT RESPONDING TO ADDRESS 
5897 6459 MODULE 1.2 = GET SOFTWARE SWITCH REGISTER 
5898 6476 MODULE 1.3 = CHECK SYSTEM ADDRESS 
5899 6512 MODULE 2.0 - SYSTEM SCHEDULER 
3900 6618 MODULE 2.1 ~ INITIALIZE CHECK 
5901 6677 ERROR 2 NO DONE BIT AFTER INITIALIZE 
5902 6690 ERROR 3 ERROR BIT SET ON INITIALIZE 
5903 6705 MODULE 2.2 - SYSTEM DRIVER 
5904 6818 2.2.1 = GET COMMAND 
5905 6911 2.2.2 = TRACK + SECTOR UPDATE 
3906 7040 2.2.5 ~ DRIVE DRIVER 
5907 7083 2.2.5.1 = OUTPUT DRIVE COMMAND 
5908 7149 E 2.2.5.1.1 = OUTPUT SINGLE WORD 
5909 7161 2.2.5 ~ ERROR CHECK 
5910 7237 4 READ MAINT STATUS COMMAND ERROR 
5911 72535 5 SET DENSITY COMMAND ERROR 
S912 7270 6 READ SECTOR COMMAND ERROR 
5913 7279 DRIVE DROP 
5914 7385 DRIVES AVAILABLE CHECK 
5915 7481 SET TEST BITS IN CSR + ESR 
5916 7524 NG E 
5917 7539 
5918 7543 
S919 7548 2.3> M STATUS 
5920 7659 E 2.5.1 - PRINT SYSTEM STATUS 
5921 7728 2.5.2 ~ SYSTEM DROP 
5922 7758 2.5.35 - SYSTEM ye CHECK 
5923 7803 2.4 - WA YSTE 
5924 7826 E 2.5 - WA 
5925 7853 3.0 - OU 
5926 7893 E U.PRIHI - SET PROCESSOR PRIORITY HIGH 
5927 7901 U.PRILO - SET PROCESSOR PRIORITY LOW 
5928 7909 U.PROPRI - SET PROCESSOR PRI 
5929 7922 E U.SADR =- SET SYSTEM BUS ADDRESS 
5930 7932 MODULE U.SUCO = SET SYSTEM are CONTROL OFFSET 
5931 7940 MODULE U; DL ~ DELAY FOR ‘‘TR"’ " DONE*’ 
5932 7963 TIME OUT ERROR PRINT 
5933 7996 RXCS ERROR CHECK 
5934 8037 RXES ERROR CHECK 
5935 8078 TEST HEADER CHECK + PRINT 
5936 8098 MODULE U.PRTSYS - PRINT SYSTEM IDENTIFICATION 
5937 8106 PRTDRV - PRINT DRIVE IDENTIFICATION 
5938 8124 MODULE U.PRIKSC - PRINT TRACK + SECTOR ERROR IDENT 
5939 8142 CHECK BITS SET + NOT S 
5940 8255 ERROR SET SUBROUTINE 
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BUS INITIALIZE SUBROUTINE 

RXO2 INTERRUPT HANDLER #0 

RXO2 INTERRUPT HANDLER 41 

TTY INTERRUPT HANDLER 

BUS ADDRESS TRAP HANDLER 

APT ERROR HANDLER 

MODULE _U.OPRANS - SETUP + GET OPERATOR ANSWERS 
TTY ENTRY SUBROUTINE 

TTY ENTRY ERROR SUBROUTINE 

TTY ANSWER ENTRY SUBROUTINE 

TTY READ SUBROUTINE 

TTY ASCII OUTPUT SUBROUTINE 
OCTAL OUTPUT SUBROUTINE 

DATA CHARACTER OUTPUT SUBROUTINE 
TTY OUTPUT 

MESSAGE TABLE 

TEST HEADERS 

ERROR CODE STORAGE 

PATCH AREA 


SEQ 0010 
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g. 
-TITLE CZRXEAO RXO2 FMTR PROG 
;RX02-APT 


LISTING 


; 14-MARCH-78 


:L. PRUCHA 

-ENABLE ABS AMA 

IST ME 

BEX,CND,MC .MD 

;**e%* PROGRAM EQUIVALENTS ***«x 


el 
~NLIST 


40 


‘ DONE Bl I-------- <CSR> 
TR BI Teron------<CSR> 
:DENSITY BIT <CSR> 





:SIDE #41 BIT-----<ESR> & <CSR> 
DRIVE READY < 

;AC LOW BIT <ESR> 

; INITIALIZE DONE BIT-<ESR> 
;SIDE READY BIT--<ESR> 

“DRIVE #1 BI T----<ESR> 
;DENSITY ERROR---<ESR> 

:DRIVE DENSITY---<ESR> 








RI i 

:RXINIT BIT------<CSR> 

:RX02 BIT--------<CSR> 

:APT ENVIRONMENT TEST WORD 

;APT CONSOLE SUPRESSION WORD 

:CRC ALL TRACKS & SECTORS FLAG 

sREAD SECTOR COMMAND CODE (LEFT SHIFTED) 
sREAD MAINT STATUS COMMAND CODE (LS) 
>SET DENSITY COMMAND CODE (LS) 

:DOUBLE DENSITY BIT 





SEQ 0011 
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001000 


00 
177776 


177774 
177772 
177570 
177570 
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~SBTTL BASIC DEFINITIONS 
ca. to OF THE STACK POINTER *** 1000 ««« 


STAC 

-EQUIV EMT,ERROR ;sBASIC DEFINITION OF ERROR CALL 
-EQUIV IOT,SCOPE ;sBASIC DEFINITION OF SCOPE CALL 
; *MISCELLANEOUS DEFINITIONS 
HT= 17 ;-CODE FOR HORIZONTAL TAS 
LF= 12 ;:CODE FOR LINE FEED 


CR= 15 +s CODE oie CARRIAGE RETURN 
CRLF= 200 ;CODE FOR CARRIAGE RETURN-LINE FEED 
PS= 177776 :;PROCESSOR STATUS WORD 


+3 STACK LIMIT REGISTER 

:PROGRAM INTERRUPT REQUEST REGISTER 
: HARDWARE SWITCH REGISTER 
DDISP= 177570 ; sHARDWARE DISPLAY REGISTER 


> *GENERAL PURPOSE REGISTER DEF INITIONS 
RO= 20 NERAL 








R1= a1 

R2= 4 

R3= 

R4= a4 

R5= z5 

R6= 26 

R7= %7 : 

SP= 26 : ISTACK POINTER 

PC= z7 : sPROGRAM COUNTER 
>*PRIORITY LEVEL DEFINITIONS 

PRO= 0 ;zPRIORITY LEVEL 0 

PR1= 40 ;sPRIORITY LEVEL 1 

PR2= 100 ;sPRIORITY LEVEL 2 

PR3= 140 ;sPRIORITY LEVEL 3 

PR4= 2 PRIORITY LEVEL 4 

PR5= 240 :sPRIORITY LEVEL 5 

PR6= 3 >sPRIORITY LEVEL 6 

PR7= 340 : EPRIORITY LEVEL 7 
;*' ‘SWITCH REGISTER'’ SWITCH DEFINITIONS 
SW15= 100000 

SW14= 4 

SW1i3= 20000 

SWi2= 10000 

SW11= 4000 

SWI10= 2 

SWO9= 1000 

SWO08= 

SWO7= 200 

SWO6= 1 

SWO5= 40 

SWO4= 20 

SWOS= 10 


SEQ 0012 
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(1) 000904 SWO2= 4 
(1) 000002 SWwOlI= 2 
(1) 000001 . 
(1) -EQUIV SWO9,SW9 
(1) -EQUIV SWO8,SW8 
(1) EQUIV SWO7,SW7 
(1) -EQUIV SWw06, 
(1) -EQUIV SWOS,SW5 
(1) -EQUIV SWO4, 
(1) -EQUIV SWO3,SW3 
(1) -EQUIV SWO2,SW2 
(1) -EQUIV SWO1,SW1 
oF -EQUIV SWOO,SWO 
(1) ;*DATA BIT DEFINITIONS (BITOO TO BIT15) 
(1) 100000 BIT15= 1 
(1) 040000 BIT14= 40000 
(1) 020000 BIT13= 20000 
(1) 010000 BIT12= 10000 
(1) BIT11= 4000 
(1) 002000 BIT10= 2000 
(1) 001000 BITO9= 1000 
(1) BITO8= 400 
(1) 2 BITO7= 200 
(1) 000100 BITO6= 100 
(1) BITOS= 40 
(1) 000020 BITO4= 20 
(1) 000010 BITO3= 10 
(1) BITO2= 4 
(1) 2 BITOI= 2 
(1) 000001 BI TOO= 
(1) -EQUIV BITO9,BIT9 
(1) a IV BITO8.BIT8 
(1) -EQUIV BIT07,BIT7 
(1) -EQUIV BITO6,BIT6 
(1) -EQUIV B1IT0S,BITS 
(1) ‘ IV BITO4, 
(1) -EQUIV BITO3S,BIT3 
(1) -EQUIV BITO2,BIT2 
(1) -EQUIV BITO1,BIT1 
of : -EQUIV BITOO,BITO 
(1) ;*BASIC ‘‘CPU’’ TRAP VECTOR ADDRESSES 
(1) 000004 ERRVEC= 4 ee OUT AND OTHER ERRORS 
(1) 000010 RESVEC= 10 ;zRESERVED AND ILLEGAL INSTRUCTIONS 
(1) 000014 TBITVEC=14 ooty 6a 
(1) 000014 TRIVEC= 14 3; TRACE TRAP 
(1) 000014 E?TVEC= 14 ; ;BREAKPOINT TRAP (BPT) 
(1) 000020 IOTVEC= 20 >; INPUT/OUTPUT TRAP (IOT) **SCOPE** 
(1) 000024 PWRVEC= 24 ; POWER FAIL 
(1) EMTVEC= 30 >; EMULATOR TRAP (EMT) **ERROR** 
(1) 000034 TRAPVE C=34 ::""TRAP’' TRAP 
(1) TKVEC= 60 :z: TTY KEYBOARD VECTOR 
(1) 000064 TPVEC= 64 >; TTY PRINTER VECTOR 
‘us 000240 PIRQVEC=240 :;PROGRAM INTERRUPT REQUEST VECTOR 


B 2 
CZRXEAO RXO2 FMTR PROG MACY11 30(1046) 20-SEP-78 10:48 PAGE 67-3 


CZRXEA.P11 20-SEP-78 10:48 BASIC DEFINITIONS 


;eeeee TRAP CATCHERS *e#* 


; UNASSIGNED TRAP 
;TIME OUT, BUS TRAP 
sRESERVED INSTRUCTION 
; TRACE TRAP 


UC 
elelelelelelelelelelelele)lelelele)\aia) 


-SBTTL ACT11 HOOKS 


CT ERE REAR EKEREEEEKERKEEREKEKEEEEREREEEKKEEEEKEKEEKEREKEKKKEK 


- HOOKS REQUIRED BY ACT11 





() vec=. :SAVE PC 

1) SENDAD ::1)SET LOC.46 TO ADDRESS OF $ENDAD 
(1) 000052 000000 “WORD 0 ::2)SET LOC.52 TO ZERO 

(1) 000046 =$SVPC =: RESTORE PC 


SEQ 0014 
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000060 
012420 
000000 


000200 
005000 
000137 001000 
000210 
012700 000001 
000137 001000 
000220 
005237 000516 
005000 
000137 001000 


000264 
012404 
100340 


000270 
012412 
000340 


000300 


177560 
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20-SEP-78 
ACT11 HOOKS 
pxeeee TTY INTERRUPT VECTOR «an 
.=60 
— ; TTY INTERRUPT HEADER ADDRESS 
peewee START ADDRESS **#«« 
.=200 
CLR RO 
JMP START ;PROGRAM START 
=210 
MOV #1,R0 ;SET NO HEADER FLAG 
JMP START 
.=220 
INC DBGFLG ;SET DEBUG FLAG 
CLR RO :SET SO HEADER WILL PRINT 
JMP START 
px*ete RXO2 INTERRUPT VECTORS **««x 
=264 
dl ;RX02 INTERRUPT HANDLER 40 ADDRESS 
-=270 
ot hile ;RX02 INTERRUPT HANDLER #1 ADDRESS 
.=500 
:axkkkk CONSTANTS «***« 
TKS: 177560 ; TTY READER STATUS 
TKB: 177562 7 TTY READ BUFFER 
TPS: 177564 ; TTY PUNCH STATUS 
TPB: 177566 ; TTY PUNCH BUFFER 


VECTO: 264 ; INTERRUPT VECTOR SYS #0 

VECT1: 270 ; INTERRUPT VECTOR SYS #1 

REGSO: 177170 : STARTING REGISTER ADDRESS SYS #0 
REGS1: 177200 


: sSTARTING REGISTER ADDRESS SYS #1 
BIRP: 4 ;BUS TRAP ADDRESS 

: ;BUS TRAP RRIORITY LEVEL 
sSOFTWARE SWITCH REGISTER ~— PRESET-> DEN=DBL.SYSO 


SEQ 0015 


D 
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CZRXEA.P11 20-SEP-78 10:48 ACT11 HOOKS SEQ 0016 
6123 
6124 000400 24 
6125 000401 ASWREG=401 
6126 000264 AVECT1=264 ;APT VECTOR 264 
6127 177170 ABASE=177170 ;APT UNIBUS ADDRESS 
or -SBTTL APT MAILBOX-E TABLE 
(2) CIO III III IOIOIOIOIOIIOIOIOIOI I TOIUIOIOIOIOIOIOIOIOIOIOIOIOIOSOIOIOIOIOI OOOO OOO IOS IMAM 
(1) -EVEN 
1) 000400 SMAIL: ;;APT MAILBOX 
1) 000400 000000 SMSGTY: .WORD AMSGTY + sMESSAGE TYPE CODE 
1) 000402 000000 SFATAL: .WORD E 
1) 000404 000000 STESTN: .WORD 
1) 000406 000000 SPASS: .WORD 
1) 000410 000000 S$DEVCT: .WORD 
1) 000412 000000 IT: WORD 
1) 000414 000000 GAD: .WORD 
1) 000416 000000 GLG: .WORD 
1) 000420 SE TABLE 
1) 000420 000 SENV: BYTE 
1) 000421 000 SENVM: .BYTE 
1) 000422 000401 SSWREG: . 
1) 000424 000000 $US . WORD 
t 000426 000000 SCPUOP: .WORD rs 
“* 
1) ;* 1/046=01 , 11/05=02, 11/20=03, 11/40=04,11/45=05 
1) :* 11770206 PROL0? 6 =10 
29 BIT 10=REAL TIME CLOCK 
3% BIT 9=FLOATING POINT PROCESSOR 
;* BIT 8=MEMORY MANAGEMENT 
0004 30 000 SMAMS1: .BYTE AMAMS1 ;;:HIGH ADDRESS.M.S. BYTE 
000431 000 SMTYP1: .BYTE  AMTYP1 ::MEM, TYPE ,BLKA#1 
;* MEM.TYPE BYTE =-— (HIGH BYTE) 
;* 900 NSEC CORE=00 





500 
;sHIGH ADDRESS ,BLKA1 
MEM.LAST ADDR.=3 BYTES.THIS WORD AND LOW OF ‘‘TYPE'’ ABOVE 
+ ;HIGH ADDRESS .M.S. BYTE 


es - TYPE .BL 
> ;MEM.LAST ADDRESS ,BLK#2 
: HIGH ADDRESS .M.S.BYTE 
M. TYPE ,BLKA3 


«LAST ADDRESS ,BLK&5 
: HIGH ADDRESS .M.S.BYTE 
ee - TYPE ,BLKA4 
M.LAST ADDRESS ,BLKA4 

: INTERRUPT VECTORA1,BUS PRIORITYA1 


>; INTERRUPT VECTOR#2BUS PRIORITY#2 
;;BASE ADDRESS OF EQUIPMENT UNDER TEST 





000000 
000450 000264 
000000 
000454 177170 


a i el i i ee ee ee ee ee ee ee ee ee ee a a ee en a eee 


Net Net Net Set et Set ee ee Se ee ee ee ee ae ee ee ee ee ee ee ee ee ae 8 8 
Ad 
Ww 





: . 24 
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CZRXEA.P11 20-SEP-78 10:48 PARAMETER BLOCK 7 SEQ 0017 

— .SBTTL APT PARAMETER BLOCK 

(2) ‘weet t tt ppp pete eee PEPPER ERR RE CER C ECCS SCO COCSSCLCCCSESCCCCLASC... © 

(1) :SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 

(2) ST RARE RARER EERE KAA EEE REE EEE 

(1) 000456 .$X=. oe CURRENT LOCATION 

(1) 000024 .=24 ;z:SET POWER FAIL TO POINT TO START OF PROGRAM 

(1) 000024 000200 200 :FOR APT START UP 

(1) 000044 .=44  SPOINT TO APT INDIRECT ADDRESS PNTR. 

(1) Q00044 000456 SAPTHDR ;;POINT TO APT HEADER BLOCK 

(1) 000456 -=.$X  ;;RESET LOCATION COUNTER 

(2) SAAR 

(1) SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 

or INTERFACE SPEC. 

(1) 000456 SAPTHD 

(1) 000456 SHIBTS: .WORD 0O :;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

(1) 000460 0004 -WORD SMAIL ;;ADDRESS OF APT MAILBOX (BITS 0-15) 

(1) 000462 000120 STSTM: .WORD 120 ;;RUN TIM OF LONGEST TES 

(7) 000464 000120 SPASTM: .WORD 120 + + RUN ia IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
(1) Q00466 000120 SUNITM: .WORD 120 ;ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
(1) 000470 000027 . WORD SETEND-SMAIL 2 ; LENGTH MAILBOX-E TABLE (WORDS) 


CZRXEAQ RXO2 FMTR PROG MACY11 30(1046) 
CZRXEA.P11 20-SEP-78 10:48 


6134 000472 177170 
6135 000474 177172 





. 2 
aS? tinant 10:48 PAGE 67-7 


T PARAMETER BLOCK 


;eeaee FLAGS AND COUNTERS *#««* 


: 177170 
: 177172 
264 


a 


ENDF TB: 


z 
w 
5 
rm 
Cc) 


heheh ae) el elelelelelelelelealelelelelelelelelelelelolelelelelelelolelelelelelelele 


; HEADER 
A 





iRX02 CSR ADDRESS 
;RX02 DBR ADDRESS 
:RX02 VECTOR ADDRESS 
; SECTOR ADDRESS 


: TRACK ADDRESS 
; SWITCH REG ADDRESS 
Y WORD 


sDENSITY 

;REGISTER ADDRESS BUFFER 
VECTOR ADDRESS BUFFER 
Ao: ge > hl aaa FLAG 


“DEBUG F 


LSI OR SWITCHLESS PROCESSOR FLAG 
;PASS COUNTER 


; TYPE OUTPUT BUFFER 
; TYPE INPUT BUFFER 


;ANSWER TO QUESTION BUFFER 
FLAG 





G 
:WATCHDOG MULTIPLER SYSTEM#0 
;WATCHDOG MULTIPLER SYSTEM#1 


“BUS TRAP FLAG 


SYSTEM MESSAGE BUFFER 
+ SYSTEM FLAGS 

START PROGRAM FLA 
“MESSAGE "ADDRESS-HEADER 


TYPE 

SYSTEM ERROR 

> SYSTEM UNDER CONTROL 
LABL 








ST 
‘TTY INTERRUPT FLAG 
;*** DQ NOT REMOVE THIS LABEL *** 


SEQ 0018 


CZRXEAO RXO2 FMTR PROG 
CZRXEA.P71 


rs 


001000 


020200 
103775 


MACY11 30(1046) 


10:48 


0600420 
000427 
000520 


176700 
000504 


000472 
000314 
177124 
177136 
177132 
176600 


000520 


177214 
000506 


St Mina 
T PARAMETER Bi OCK 


G 2 
10:48 PAGE 67-8 


=1000 
Pha MODULE 0.0 = PROGRAM START AND CONTROL 


LBOO0: 


IDOO: 


LSITRP: 


EDOO: 


EA00: 
TJ00: 


LJOO: 
BEOO: 


BF OO: 


#1000,SP 
DBGFLG 

$PASS 

BTRPFL 

RO 

EA0O 
#MSG3,R4 

PC, TTOUT 
ne 
#100, $CPUOP+1 
L 

#1, LSIFLG 


#200 
00 


ADTS 

RXCSAD ,REGSO 
EA0O 
#B1T6,aTKS 


OPI 

VECTO.RS 

WRXINTO, (RS) + 
WPR7. (R Rd) 

vECTIR 

PRXINT? ? nse 

#PR7, (R5) 

PCNTR 

#B1T8,aSWR 

LJO0 

#DBLDEN, DENS 

BEOO 

DENS 

#T0B,R2 

#ENDF TB.RO 

(R2)+ 

R2_RO 

BF OO 


:LS1/Q-BUS, THEN 
sSet Si PROCESSOR FLAG 
;SET LSI PRIORITY 


SET PDP-11 PRIORITY 
SET SOFTWARE SWITCH ADDRESS 
:GET VECTOR FROM ETABLE 
;CLEAR TOP BYTE RO 
; LOAD iasity ADR IN VECTOR 
sLOAD PRIORITY 
sSET REGISTER BASE FROM ETABLE 
> CALL ue ii i TST 
;SET SYS#0 BUS 

TO END oy lated 
DISABLE TTY KEYBOARD INTERRUPTS 
;SET BUS TRAP FOR LSI TRAP 
SET UP PROCESSOR PRI-BUS TRAP 
+ IF PROCESSOR IS 


THEN 
“SET LSI PROCESSOR FLAG 
:SET LSI PROCESSOR PRIORITY 
;RESET BUS TRAP 
sRESET BUS TRAP 
:CALL GET ys fia (MOD 1.0) 
:GET SYS#O VE 





;SET SYSTEMAO. VECTOR 
> SET ESSOR PRI 





TER 
:1F SWITCH REG HAS DOUBLE DENSITY BIT 
> SETUP DENSITY=DOUBLE 
:BR TO BEGIN DO ‘E' 
SETUP DENSITY=SINGLE 
:SET BEGINNING OF TABLE 


:SET END OF TABLE 
Bh ge AR OF FLAGS + COUNTERS 


:D0 UNTI 
sEND OF TABLES DONE 


CUSER] 
CUSER] 


SEQ 0019 


CZRXEAO RXO2 FMTR 
CZRXEA.P11 


20-SEP- 


MACY11 30(1046) 


10:48 


000100 


000532 
001 306 


000420 


000406 


000574 


2 
Wak of 10:48 PAGE 67-9 


0.0 = PROGRAM START AND CONTROL 


INC INITPG ;SET PROGRAM INITIALIZE FLAG 


CALL SYSCHD -GO FORMAT SCHEDULED SYSTEMS 
1G00: BITB HMAPTENV, SENV :1F APT MODE 
BNE EGOO ;FALSE, THEN 
ALL OTSYDN CALL OUTPUT SYSTEM DONE 
EGOO: MOV #MSG6 ,R4 “SET END OF PASS MSG 
SR PC,TTOUT ;PRINT END OF PASS 
INC TTWAIT sSET TTY WAIT FLAG 
MOV PCNTR,R3 
JSR PC ,OCTP ;PRINT PASS NUMBER 
INC PCNTR “BUMP PASS COUNTER 
MOV PCNTR,$PASS + BUMP APT PASS COUNTER 
IHOO: MOV a742,R F ACT 
BEQ 1100 “MODE THEN 
Seay a42 “ABORT THIS PROGRAM 
SENDAD: JSR PC, (RO) ;ACT HOOKS 
; * DO NOT 
NOP 2 REMOVE 
: THESE NOP'S * 
1100: BIT #100, SYSFLG :IF IDLE MODE 
BEQ E100 ;SET, THEN 
1$: 1$ ; IDLE LOOP 
E100: RESET ; 
CLR TTWAIT sCLEAR TTY WAIT FLAG 
ENDOO: JMP BEOO ;DO NEXT PASS 


SEQ 0020 


CZRXEAOQ RXO2 FMTR PROG nap oe 30(1046) ee ey 10:48 PAGE 6b-16 10 


CZRXEA.P11 20-SEP-78 10:48 ULE 1.0 - OPERATOR INTERFACE SEQ 0021 
6269 .SBTTL MODULE 1.0 = OPERATOR INTERFACE 
6271 :BEGINROUTINE (MODULE 1.0 = GET USER INPUT) 
6272 : SET SOFTWARE SWITCH, REG ADDRESS 
6273 : SETUP & PRINT ‘HELP 
6274 : CALL GET ANSWER 
6275 ; TF ANSWER=VES [A] 
6276 : =: THEN 
oot 2 as SETUP & PRINT HELP FILE 
6279 ; SETUP & PRINT ‘'SET DISKETTE TO SINGLE DENSITY? (Y OR N)’’ 
6280 ; CALL GET ANSWER 
6281 : IF ANSWER=YES (B) 
6282 > : THEN 
ace 4 i Se! DENS & SOFT SWITCH REG DENSITY BIT=SINGLE DENSITY 
ores tJ SET DENS & SOFT SWITCH REG DENSITY BIT=DOUBLE DENSITY 
6287 ; SETUP & PRINT ‘VERIFY DISKETTE CRC (ALL TRACKS)? (Y OR N)’’ 
6288 : CALL GET ANSWER 
6289 : IF ANSWER=YES {cI 
6290 | : oo: THEN 
6291 ee SET SOFT SWITCH REG=CRC ALL BIT 
6292 > : ELSE 
6293 a CLEAR SOFT SWITCH REG=CRC ALL BIT 
6294 ; ENDIF 
6295 : SET <SuUC>=0 
6296 ; SETUP & PRINT ‘FLOPPY SYS #0 ADDRESS CHANGE? (Y OR N)’’ 
6297 : CALL GET ANSWER 
6298 : IF ANSWER=YES (Dd) 
6299 : : THEN 
6300 : SET YES ANSWER FLAG 
6301 : L 
6302 : CLEAR YES ANSWER FLAG 
6303 ; ENDIF 
6304 : CALL GET SYSTEM BUS ADDRESS 
6305 ; CALL CHECK SYSTEM BUS ADDRESS (SEE IF BOOT SYSTEM) 
6306 ; SET SOFT SWITCH REG=SYS #0 AVAILABLE 
6307 ; SETUP & PRINT ‘IS SECOND FLOPPY SYSTEM AVAILABLE? (Y OR N)"' 
6308 : CALL GET ANSWER 
6309 : IF ANSWER=YES CEJ 
6310 > : THEN 
6311 are SET <SUC>=1 
6312 eo. 4 SET YES ANSWER FLAG 
6313 Tee CALL GET SYSTEM BUS ADDRESS 
6314 : CALL CHECK SYSTEM BUS ADDRESS (SEE IF BOT MEDIA) 
6315 ae SET SOFT SWITCH REG=SYS #1 AVAILABLE 
6316 : ENDIF 
6317 ; IF DEBUG_FLAG=SET CFI 
6318 : =o: THEN 
6319 : CALL GET SOFT SWITCH REG 
6320 ; ENDIF 


END 
6321 ; ENDROUT INE 


CZRXEAO RXO2 FMTR PROG 
CZRXEA.P11 


20-SEP-78 


012737 
04 
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10:48 


000504 


000530 


000550 
176732 
176722 
000530 


176670 
176660 


000530 


176604 


000530 
000610 


176532 


an sh 


‘ 
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1.0 = OPERATOR INTERFACE 


1D10: 


LD10: 
ED10: 


IE10: 


#SWREG, SWR 
WMSG43.R4 
GE TANS 

#°Y ANSWER 
EA10 
#4SG39,R4 
TTOUT 
WMSG45.R4 
TTOUT 


GE TANS 
a ANSWER 


LB 

a on 
ADENBIT ,aSWR 
A#MSG46 ,R4 

GE TANS 

#*Y ANSWER 
LC1 

#CRCALL ,@SWR 
EC10 

ACRCALL ,@SWR 
SUC 
#MSG47 RS 
TTOU 


T 
CALL GET OPERATOR ANSWER 
7 IF ANSWER 


:1S YES, 


THEN 
7SET CRC ALL FLAG IN SOFT SWITCH REG 
;BR TO END 'C° 
Oe cers =" FLAG IN SOFT SWITCH REG 
: SETUP MSG "FLOPPY SYS 0 ADDRESS MODIFICATION (Y OR N)?°' 
>CALL GET OPERATOR ANSWER 
ANSWER 


2 IF 
:IS YES, 








THEN 
SET YES ANSWER FLAG 
TO END "D* 


CLEAR YES ANSWER FLA 

>CALL GET SYSTEM BUS ADR & TEST 

CALL CHECK eos ADR - MEDIA PROTECT 
:SET SYSTEMAO AVAI 

: SETUP 


INT 
‘oo GET OPERATOR ANSWER 
F ANSWER 


"1S YES THEN 

:SET <SUC> = 1 

:SET YES ANSWER FLAG 

;CALL GET SYSTEM BUS ADR & TEST 

:CALL CHECK SYSTEM ADR - MEDIA PROTECT 


MSG 


SECOND” FLOPPY SUBSYSTEM (Y OR N)?°’ 


sSET SYSTEM#1 AVAIL 
IF DEBUG FLAG 


ET, THEN 
sGET SOFTWARE SWITCH REG 
ETURN 


SEQ 0022 
;SET SOFTSWITCH REG ADR 
SETUP MSG ‘HELP?'’ 
sPRINT 
;CALL GET OPERATOR ANSWER 
F AN as 
‘IS YES, THEN 
<ORINT MSG --> HELP FILE 
: SETUP MSG ‘SET DISKETTE TO SINGLE DENSITY: (Y OR N)?"' 
;CALL GET OPERATOR ANSWER 
7; IF ANSWER 
71S YES, (SET SINGLE DENSITY), THEN 
; CLEAR DENSITY BIT IN SOFT SWITCH REG 
:BR TO END ‘B’ 
sSET DENSITY BIT IN SOFT SWITCH REG 
TUP MSG ‘VERIFY DISKETTE CRC (ALL TRACKS): (Y OR N)?°’ 


CZRXEAO RXO2 FMTR PROG th 30(1046) 
CZRXEA.P11 48 


20-SEP-78 10: 


6396 001772 004737 010126 

000314 
016137 000310 
005702 


6400 

6401 002016 004737 011132 
6402 002022 012704 014072 
6403 002026 004737 013232 
6404 000510 


6426 010126 
6427 002166 013761 000510 


000510 
000512 


000472 


0003 


LA 
—_t 
of 


uae 11 10:48 PAGE 


-SBTTL MODULE 1.1 = GET SYSTEM BUS ADDRESS & TEST 

BEGIN. DO. (MODULE 1.1. GET SYSTEM BUS ADDRESS & TEST) 
GET <SUC> REGISTER a VECTOR ADDRESSES 
SETUP & NT BUS ADDRESS 


ae CS ADORESS rest 
: D0 UNTIL BU G=0 
: SET <SUC> REGISTER. f VECTOR ADDRESSES 
s ENDROUTINE 
GTSYAD: NOP : 
BA11: NOP 
CALL SSUC “CALL SET <SUC> OFFSET 
MOV REGSOCRI) ,REGS :GET <SUC> REGISTER ADR 
MOV VECTO(R1),VECT ;GET <SUC> VECTOR ADR 
1B11: TST R2 -IF YES FLAG 
BEQ EB11 7SET, THEN 
CALL PRTSYS :CALL PRINT SYSTEM IDENT 
MOV #MSG4 USER MODE 
JSR PC, TTOUT ¢ REQUEST REGISTER ADDRESS 
MOV REGS, 
JSR PC,.OCTP :PRINT CURRENT ADDRESS 
MOV SREGS oR “SET ADDRESS SAVE LOC 
MOV :SET SIZE OF RESPONSE 
MOV 4177500, R2 :SET UPPER LIMIT 
MOV #177100, R3 :SET LOWER LIMIT 
JSR PC,TT :GO GET RESPONSE 
MOV WMSGS Ré : 
JSR PC, TTOUT :REQUEST VECTOR 
MOV VECT.R ; 
JSR PC,OCTP PRINT CURRENT VECTOR 
MOV #VECT.RS :SET ADDRESS SAVE LOC 
MOV #3.R1 aT SIZE OF RE 
MOV #300,R2 T UPPER LIMI 
MOV #250,R3 :SET LOWER LIMIT 
JSR PC,TIR GET RE 
MOV VECT,RO “GET VECTOR 
FB11: CLR BTRPFL :CLEAR BUS T F 
MOV REGS..RXCSAD :SET REGISTER 
CALL ADTST :CALL ADDRESSING TEST 
UA11 TST BTRPFL :DO UNTIL BUS TRAP FLAG 
BNE BA11 EQUALS 0 
CALL SSUCOF *CALL SET <SUC> OFFSET 
MOV REGS,REGSO(R1) ;SET <SUC> REGISTER ADR 


67-1 
- GET SYSTEM BUS ADDRESS @ TEST 


DRESS 
SETUP & PRINT VECTOR ADDRESS 
GET NEW VECTOR 
SETUP VECTOR 
CLEAR BUS-TRAP-F LAG 


VECT,VECTOCR1) ;SET <SUC> VECTOR ADR 
;RE TURN 


SEQ 0023 


CZRXEAO a FMTR PROG 
CZRX 


XEA.P1 


20-SEP-78 10:4 


000002 


000570 
020000 


014326 
015232 


012262 
001000 
012240 
176156 


175760 
175756 


000600 
176076 


176072 


176220 


176172 


MACY11 30(1046) 20-SEP-78 10:48 PAGE 67 13 
8 ADDRESSING TEST 


-SBTTL ADDRESSING TEST 


AD1: 


23: 


1$: NOP 
AD2: 


CLR 
ADTSTX: RTS 


#MSG12,TMSGAD 
#TRAP , ABTRP 
#340, aBTRP2 
RXCSAD ,R1 
(R1) 

#2,R1 

(R1) 

BTRPFL 

AD2 
#B1T13,aSWR 
2$ 


#MSG11 ,R4 
PC, TTOUT 


PC ,BSINIT 
ala 


AD 
PC ,ERRSET 


1$ 





s INITIALIZE BUS 
iSET TEST MSG HEADER 
TRAP HANDLER ADR 


si CSR ADDRESS 
“REF CS REG 
:IF ADDRESS 1S BAD, BUS TRAP WILL OCCUR 


SET ADDRESS OF DB 
_ DB REG 


:1F INITIAL ADDRESS TEST 
:DID NOT PASS, N 

:1F INHIBIT ERROR REPORT 
;NOT SET THEN 


HE 
SET UNIT NOT RESPONDING 
;PRINT MSG 


“CHECK SWR FOR BUS INITIALIZE 
“CHECK FOR LOOP ON ERROR 
:GO TO LOOP ERROR 


>FATAL ERR # 1 ~ UNIT NOT RESPONDING TO ADDRESS 
> CHECK FOR HALT ON ERROR 


sHALT IF SET 
:<SUNIT NOT RESPONDING TO ADDRESS> 
;CLEAR BUS TRAP 

HANDLER 


RETURN 


Sse er SE RG. am tae nee Som foe So RS me Gee ea Sy as ee Ee Se 0 Sh > OD Se SP ee Oe ee OS a Oe eS ee ee |e Ge ow oe oe oe ow @e © oe oe Ow Om ow oe oe om oe om ow ow ow oe ce oe oe 


SEQ 0024 


CZRXEAO 8X02 FMTR PROG 
CZRXEA.P11 


6459 
60 


000000 
012652 


000015 
177170 
011132 


MACY11 30(1046) 
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000504 


000041 
000314 


000526 


wae 13 
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1.2 ~ GET SOFTWARE SWITCH REGISTER 


.SBTTL MODULE 1.2 = GET SOFTWARE SWITCH REGISTER 


GTSWR: MOV #MSG2,R4 ;REQUEST SWITCH REG MSG 
JSR PC, TTOUT 
MOV SWREG,R3 *SET CURRENT SWITCH REG 
JSR PC ,OCTPE :PRINT CURRENT SWITCH REG 
MOV #SWREG, SWR :SET SOFTWARE SWITCH REG ADR 
MOV #SWREG,R5 :SET ADDRESS OF SWITCH REG 
MOV #6,R1 “SET SIZE OR RESPONSE 
MOV #177777 .R2 :SET UPPER LIMIT 
MOV #0, :SET LOWER LIMIT 
JSR PC,TTR -GO GET RESPONSE 
X12: RETURN ‘RETURN 
.SBTTL MODULE 1.3 = CHECK SYSTEM ADDRESS 
:BEGINROUTINE (MODULE 1.3 = CHECK SYSTEM ADDRESS) 
: IF LOAD MEDIA PROTECT BYTE=Rx02 [A] 
: IF <suC> ADDRESS=RX02 STANDARD ADDRESS (BI 
: : CALL SYSTEM IDENTIFICATION 
: : SETUP & PRINT "REMOVE XXDP MEDIA FROM THIS SYSTEM’ 
: : SETUP & PRINT '“=TYPE "'CR'’ WHEN READY’ 
: :  BEGINDO (c] 
: ; : CALL TTY INPUT-GET TTY CHARACTER : 
: : DOUNTIL CHARACTER=" ‘CR’ 
: : CLEAR MEDIA PROTECT BYTE 
; ENDIF 
: ENDIF 
: ENDROUT INE 
CKSYAD: NOP : 
IA13: CMPB§ #15,a841 :1F x02 
BNE EA] S LOAD MEDIA, THEN 
1B13: CMP #177170, REGSO(RIS;T -IF SYSTEM ADDRESS 
BNE EA13 :SET = RXO2 STANDARD ADDRESS. THEN 
CALL = PRTSYS :CALL PRINT SYSTEM IDENT 
MOV : :SET MSG-> ‘REMOVE XXDP MEDIA FROM BOOT SYSTEM'’ 
CALL OUT *PRINT MSG 
MOV 4#MSG58,R4 *SET MSG-> ‘TYPE ‘'CR’* WHEN READY'' 
CALL =‘ TTOUT =PRINT MSG 
BC13: CALL TTIN =CALL TTY INPUT-GET CHARACTER 
CMPB  =«-s«s#' 15. TIB :DO UNTIL 
BNE ¢13 “CHARACTER = "'CR 
bas CLRB 3s #4 “CLEAR RX02 BOOT MEDIA PROTECTION 
X13; RETURN = RETURN 


SEQ 0025 
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ULE 2.0 - SYSTEM SCHEDULER 


~SBTTL MODULE 2.0 - SYSTEM SCHEDULER 


;BEGINROUTINE (MOD 2.0 SYSTEM SCHEDULER) 
: SET SYS#O & et READY BITS 

; SET SYS#O SEL B 

: SET <SUC> = 0 

: SET SYSOAVL = ALL 

; CALL INITIALIZE CHECK (MOD 2.1) 

. an * SYS#1 SELECTED 


a 2 SET <SUC>=1 
Sy SET SYSTAVL = ALL 
Ki. g CALL INITIALIZE CHECK (MOD 2.1) 
; ENDIF 
IF NO SYSTEM AVAIL 
: THEN 
we SYSMSG ‘NO SYSTEM AVAILABLE’’ 


BEGINDO 
: JF SYSO SELECTED 
: THEN 


IF SYO_DONE=NOTSET 
: THEN 


SET <SUC> = 0 
IF ao RDY SET 


; ENDIF 
ENDIF 


NDIF 

IF SYS1 SELECTED 

: THEN 

IF SY1_DSONE=NOTSET 
: THEN 


SET <SUC> = 1 
IF SYS1 RDY SET 


CLEAR PROGRAM INITIALIZE FLAG 
: CALL UPDATE SYSTEM STATUS (MOD 2.53) 
: DO UNTIL ALL SYSTEMS DONE OR NO SYSTEM AVAIL 
Se SETUP SYSTEM MSG 
; ENDIF 
; PRINT PRINT SYSTEM MSG 
= ENDROUT INE 


_ SYSTEM DRIVER (MOD 2.2) 
CALL WATCH DOG SYS#O (MOD 2.4) 


THEN 
_ SYSTEM DRIVER (MOD 2.2) 
CALL WATCH DOG SYSA1 (MOD 2.5) 


CA) 


(BJ 


CCJ 
(DJ 


CH) 


[eq 


CFI 
CI] 


(6) 


SEQ 0026 


CZRXEAO RXO2 FMTR PROG 
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6565 
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000614 


000001 


0005772 
013232 


175752 
000612 
175726 


000610 
000614 


175652 


175600 


000610 


anak 3°% 
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ULE 2.0 - SYSTEM SCHEDULER 


SYSCHD: 


IA20: 


IB20: 


;SET SYSO RDY 


;SET SYS1 RDY 

SET SYS1 SELECT IN SOFT SWITCH REG 
>SET SYS UNDER CONTROL=40 

;SET SYSTEM#O AVAIL=ALL 
; CALL a, ane eee CHECK 


sIF SYS 


;SELECTED, THEN 

:SET SYS UNDER CONTROL=A1 
sSET SYSTEM#1 AVAIL=ALL 
sCALL INITIALIZE CHECK 
IF SYSTEMA#O 


:NOT AVAIL AND 
:IF SYSTEMA1 
;NOT AVAIL, THEN 
sae? HSG="NO. SYS AVAIL TO THIS PROG’ 


: IF 


BR TO 

sBEGIN DO UNTIL °C’ 
SYS #0 

; SELECTED, THEN 

F SYSO DONE 

“NOT SET, 


(MOD 2.1) 


(MOD 2.1) 


THEN 
Hg SYSTEM eg i =SYS #0 


‘1s SET, 


F SYSAO READ 
THEN 


;CLEAR SYS #0 READY 
sSET WATCHDOG INIT #0 FLAG 
:CALL SYS DRIVER 
:BR TO IF ‘F' 
iF's an DOG SYSA#0 
; SELECTED, THEN 
F SYS1 DONE 


“NOT Sele 
:SET SYSTEM UNDER ee =SYS #1 


THEN 


IF SYS #1 — = F 


IS SET. 


CLEAR ys #1 READY 
:SET WATCHDOG INIT #1 FLAG 
CALL SYS DRIVER 

T END ‘G' 


>BR OT E 
ty WATCH DOG SYS # 


#1 
PROGRAM INITIALIZE FLAG 


LEAR 

>CALL SYSTEM STATUS 
:DO UNTIL SYSTEM FLAG 
:SET (EITHER SYSTEM DONE OR NO SYS AVAIL) 
;SETUP SYSTEM MSG 
>PRINT SYSTEM MSG 
RETURN 


(MOD 2.2) 
(MOD 2.4) 


(MOD 2.2) 
MOD 2.5) 
(MOD 2.3) 


bad a ae ee ee ee ene ee ee em om St ee ee ce ee ee i Otte ee SR ee ee et ee ee ee ee eee 
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ULE 2.1 ~ INITIALIZE CHECK 


~SBTTL MODULE 2.1 = INITIALIZE CHECK 


;BEGINROUTINE (MOD 2.1 - INITIALIZE CHE CK 
CLEAR INITIALIZE_DROP FLAG 
SET <SUC> ADDRESS & OFFSET 
SET <SUC> COMMAND=INITIALIZE 
INITIALIZE SYSTEM AT ADDRESS 
SETUP DELAY FOR DONE 
CALL DELAY ROUTINE 
SET <SUC> OFFSET 
IF <sut> CSR = NO DONE BIT SET [A] 


SET INITIALIZE DROP FLAG 
CALL PRINT SYSTER IDENTIFICATION 
got APT ERROR # 
IF <suC> CSR=ERR BIT SET (BJ 
: SET INITIALIZE DROP FLAG 
CALL PRINT SYSTEM IDENTIFICATION 
SETUP & PRINT ‘ERROR BIT SET AFTER INITIALIZE’’ 
IF <SuC> ESR = AC LOW BIT SET Cc] 
2 SETUP & PRINT "‘AC-LOW-IS FLOPPY SYSTEM POWERED UP?"' 
IF <SUC> ESR = INITIALIZE DONE NOT SET [DJ 
lei SETUP & PRINT "INITIALIZE NOT DONE - RUN DIAG UNLESS ERROR" 
; SET APT ERROR # 
ENDIF 
IF <SuC> CSR NOT=DOUBLE DENSITY TYPE SYSTEM CEJ 
: SET INITIALIZE DROP FLAG 
aS SETUP & PRINT "THIS SYSTEM NOT CAPABLE OF DOUBLE DEN OPS'’ 
ENDIF 
IF INITIAL IZE_DROP FLAG SET CFI 
: CLEAR <SUC> AVAIL 


END] 
“ ENDROUT INE 


SEQ 0028 
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013232 
012240 


100000 
003270 
011132 


014776 
013232 
000010 


016530 
013232 
000004 


015752 
013232 


012240 


010222 


175404 


175344 


175316 


175276 


175246 


000612 


eer > 4 


ULE 2.1 = INITIALIZE CHECK SEQ 0029 
INITCK: CLR INI TDP : CLEAR INITIALIZE DROP FLAG 
CALL SSUCAD L SET <SUC> ADDRESS 
MOV #RXINIT, SOCMD«RIS: “SET <SUC> COMMAND = INITIALIZE 
MOV WRXINIT,@RXCSAD ; INITIALIZE SYSTEM AT <SUC> CSR ADDRESS 
MOV RXCSAD,CSRADR :SET ADDRESS FOR DELAY TEST 
MOV #DNBIT,RDY :SET DONE BIT FOR DELAY TEST 
MOV #15,RYDX :SET DELAY MULTIPLIER 
CALL ELAY :DELAY FOR DONE BIT 
CALL UCOF :CALL SET <SUC> OFFSET 
IA21: BIT WDNBIT,@RXCSAD :IF <SUC> CSR DONE BIT 
BNE 21 “NOT SET, THEN 
INC INI TDP :SET INITIALIZE DROP FLAG 
CALL = PRTSYS :CALL PRINT SYSTEM IDENT 
MOV #MSGS2,R4 :SET MSG-> ‘NO DONE BIT AFTER INITIALIZE’’ 
CALL TTOUT :PRINT MSG 
JSR PC ,ERRSET 
WORD #2 sFATAL ERR # 2 - NO DONE BIT AFTER INITIALIZE 
BR EA21 ‘BR TO MOD EXIT 
IB21: BIT #ERRBIT.@RXCSAD :IF <SUC> CSR ERROR BIT 
BEQ 1E21 *SET, THEN 
INC INI TDP :SET INITIALIZE DROP FLAG 
CALL §- PRTSYS :CALL PRINT SYSTEM IDENT 
MOV #MSG29,R4 :SET MSG-> ‘ERROR BIT SET AFTER INITIALIZE"’ 
CALL TTOUT -PRINT MSG 
1C21: BIT WACLOW,@RXDBAD :IF <SUC> ESR AC LOW BIT 
BEQ 1D21 :1S SET THEN 
MOV #MSG54 .R4 :SET MSG-> '‘AC LOW ERROR-IS DISK SYSTEM POWERED UP?"’ 
CALL TTOUT =PRINT MSG 
ID21: BIT #INITDN,@RXDBAD :IF <SUC> ESR INITIALIZE DONE BIT 
BNE ED21 “NOT SET, THEN 
MOV #SG44 ,R4 *SET MSG-> INITIALIZE NOT DONE-RUN DIAG UNLESS ERR OBV! 
CALL TTOUT -PRINT MSG 
ED21: 
JSR PC ,ERRSET 
WORD #3 ;FATAL ERR # 3 - ERROR BIT SET ON INITIALIZE 
IE21: BIT W#RXOBIT,ARXCSAD :IF <SUC>=DOUBLE DENSITY SYSTEM TYPE 
BNE EA21 :BIT NOT SET, THEN 
INC INI TDP :SET INITIALIZE DROP FLAG 
CALL  PRTSYS :CALL PRINT SYSTEM IDENT 
MOV #MSG23,R4 :SET MSG-> ‘THIS SYS NOT CAPABLE OF DOUBLE DEN OPS’’ 
CALL TTOUT =PRINT MSG 
EA21: MOV #17,SO0AV(R1) :SET <SUC> SYSTEM AVAIL 
IF21: TST INI TDP :I1F INITIALIZE DROP FLAG 
BEQ X21 :SET, THEN 
CLR SOAV(R1) *CLEAR <SUC> SYSTEM AVAILABLE 
X21: RE TURN :RETURN 
INITDP: 0 s INITIALIZE DROP FLAG 


0 3 
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rg Ss -SBTTL MODULE 2.2 - SYSTEM DRIVER 
6707 ea at (MOD 2.2 SYSTEM DRIVER) 


BEGINDO 

: SET <SUC> DRIVE_DONE=GET NEXT COMMAND FLAG 
CLEAR GET NEXT COMMAND FLAG 

CALL GET NEXT COMMAND (MOD 2.2.1) 

IF COMMAND = DONE 


THEN 
yy SUC=>SYS_DONE_FLAG 


GET SYSTEM UNDER CONTROL OFFSET 
IF —— = DRIVE #1 SELECTED 


IF suC> DRIVE #1 AVAIL 
: IF COMMAND=SIDE #1 SELECTED 
: THEN 


: RROR CHE OU ; 
6710 : IF ts iit catenin NOT = 0 [AJ 


(CJ 


(DJ 


CEJ 
(FJ 
CG] 


IF suc=> SIDE#1_AVAIL NOT SET [HI] 


: ENDIF 
ENDIF 
: SET GET NEXT COMMAND FLAG 
ENDIF 
ELSE 

IF ao tg DRIVE #O_AVIAL SET 


% ma SIDE #1 SELECTED 


SET GET NEXT COMMAND FLAG 


Cij 
CJJ 


IF suc~> SIDE #1_AVIAL NOT SET [k] 


: ENDIF 
ENDIF 


E 
: : SET GET NEXT COMMAND FLAG 
: ENDIF 
ENDIF 
: END IF 
DOUNTIL GET_NEXT_COMMAND=0 
IF COMMAND NOT = DONE 
THEN 
IF — D = READ SECTOR 
CALL TRK & SECTOR (MOD 2.2.2) 


END 
; CALL DRVR (MOD 2.2.3) 
END IF 


> ENDIF 
; ENDROUT INE 


SET GET NEXT COMMAND FLAG 


cL] 
CM] 


Si RxXO2 FMTR PROG 


RXEA.P 


053737 
37 


010126 
000626 
000012 
001000 
000010 
003556 
003556 
000005 
001000 
000004 
003556 


003556 
003556 


000542 
000542 
177761 
000006 


004016 
004402 
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004360 


003560 


000542 
000612 
000542 
000612 


000612 
000542 
000612 
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ULE 2.2 = SYSTEM DRIVER 


SYSDVR: BIS INITPG,INITTS 
CLR GT CMD 
CALL SSUCOF 
INC WATINO(R1) 
CALL ERRCHK 
CALL SSUCOF 
IA22: TST SOAV(R1) 
BEQ X22 
BC22: BIS GTCMD, SODVDN(R1): 
CLR GT CMD 
CALL GE TCMD 
ID22: TST CMD 
BGE 
CALL SSUCOF 
INC SODN(R1) 
BR UC22 
LD2e: CALL SSUCOF 
IE22: BIT A#DRV1,CMD 
BEQ Il22 
IF22: BIT #12,SO0AV(R1) 
BEQ F22 
IG22: BIT #SIDE1,CMD 
BEQ UC22 
IH22: BIT #10, SOAV(R1) 
BNE UC22 
INC GTCMD 
BR UC22 
LF2e: INC GT CMD 
UC22 
II22: BIT #5 ,SOAV(R1) 
BEQ LI2 
IJ22: BIT #SIDE1, CMD 
BEQ UC 
IK22: BIT #4, SOAV(R1) 
UC22 
INC GT CMD 
UC22 
LI22: INC GT CMD 
UC22: TST GT CMD 
BC22 
liwZ: TST CMD 
BM] X22 
MOV CMD ,R2 
BIC #177761,R2 
IM22 CMP WRDSEC ,R2 
BNE EM22 
CALL TRKSEC 
EM22: CALL DRVR 
X22: RE TURN 
GTCMD: 0O 
SODVDN: 0 
ome 0 


;EQUALS DONE 
sCALL SET <SUC> OFFSET 


;PASS INITIALIZE FLAG TO TRACK & SECTOR MOD 
AR GET COMMAND FLAG 


:CALL SET <SUC> OFFSET 

; INCREMENT SYSTEM WATCH DOG INITIALIZE 
;CALL ERROR CHECK (MOD 2.2.5) 

sCALL SET <SUC> OFFSET 

Fag —— 


:NO T 
SET <SUC> DRIVE DONE =GET COMMAND FLAG 
:CLEAR GET COMMAND FLAG 

sCALL GET COMMAND (MOD 2.2.1) 

:1F COMMAND 


=-1), THEN 
sSET SYSTEM DONE FLAG 
;BR TO UNTIL ‘C’ 
A ae SET <SUC> OFFSET 

F COMMAND 


HAS DRIVE #1 SELECTED 
‘IF ad bP DRIVE #1 AVAILABLE 


“IF COMMAND 
sHAS SIDE # SELECTED 
sIF <SUC> SIDE #1 AVAILABLE 
:NOT SET, THEN 
T GET COMMAND FLAG 
“BR TO ENDIF ‘E’ 
ELSE SET 34 > cate FLAG 


TO END 
1F ry DRIVE #0 AVAILABLE 


OMMAND 
HAS SIDE #1 SELECTED, THEN 
FM by he #1 AVAILABLE 


FLAG 








;SET GE FLAG 
:D0 UNTIL GET NEXT CMD FLAG 
QUALS 0 





IF COMMAND 
sNOT=DONE(-1), THEN 

:GET COMMAND TO TEST 

>CLEAR ALL BUT ACTUAL COMMAND 

: IF COMMAND 

>SET TO READ SECTOR, THEN 

:CALL TRACK & SECTOR UPDATE (MOD 2.2.2) 
>CALL_UNIT DRIVER (MOD 2.2.5) 

;RETURN TO CALLER 








:GET COMMAND FLAG 
:SYSTEM#O DRIVE DONE FLAG 
;SYSTEM#1 DRIVE DONE FLAG 


SEQ 0031 
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CZRXEA.P11 20-SEP-78 10:48 ULE 2.2.1 ~ GET COMMAND SEQ 0032 
br Hy. -SBTTL MODULE 2.2.1 = GET COMMAND 
6820 :BEGINROUTINE (MOD 2.2.1 - GET COMMAND) 
6821 ; INITIALIZE SYSTEM COMMAND TABLE POINTERS, IF INIT SET 
6822 : GET SYSTEM UNDER CONTROL <SUC> COMMAND TABLE POINTER. 
6823 ; GET COMMAND AT POINTER 
6824 ; IF COMMAND = DONE [A] 
6825 : ¢:. yee 
oaes * — <SUC> COMMAND POINTER 
oese . *s IF =" READ SECTOR (BI 
6830 a} : GET <SUC> DRIVE DONE FLAG 
6831 So a : IF DRIVE_DONE_FLAG SET CCI 
6832 wt : : THEN 
6833 CLEAR <SUC> DRIVE DONE FLAG 
res iF ag NEW COMMAND FLAG NOT SET CEJ 
6836 INCREMENT <SUC> COMMAND TABLE POINTER 
6837 GET COMMAND AT POINTER 
6838 ae. : F COMMAND = DONE [DJ 
6839 Cae : : : : THEN 
oaet es : : . : RESET <SUC> COMMAND TABLE POINTER 
6842 ee : : ENDIF 
6843 oe : : CLEAR <SUC> NEW COMMAND FLAG 
6844 ae : ENDIF 
6845 - Ren : ELSE 
6846 - pee. : INCREMENT <SUC> COMMAND TABLE POINTER 
6847 oan : SET <SUC> NEW COMMAND FLAG 
6848 et ENDIF 
6849 > ENDIF 
6850 : CLEAR <SUC> DRIVE DONE FLAG 
6851 : SET SELECTED DENSITY ONTO COMMAND 


6852 > ENDROUT INE 


3 
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CZRXEA.P11 20-SEP-78 10:48 ULE 2.2.1 = GET COMMAND SEQ 0033 
6854 ewes 
6855 003564 005737 000514 GETCMD: TST INI TPG s1F INITIALIZE 
6856 003570 BEQ 1$ THEN 

003762 CLR SYOTPT “CLEAR SYS #0 TABLE PTR 
003764 CLR SY1TPT “CLEAR SYS #1 TABLE PTR 
010126 1$: CALL  SSUCOF “CALL SET <SUC> OFFSET 
003762 MOV SYOTPT(R1),.R2  =GET <SUC> CMD TABLE PTR 
003772 000542 MOV CMDTBL(R2),CMD :GET C 
000542 MOV CMD ,R3 “SA 
1A221: TST R3 = 1F COMMAND 
, BGE LA221 “EQUALS 'DONE’’, THEN 
003762 CLR SYOTPT(R1) “RESET <SUC> CMD TABLE PTR 
BR 1 “BR TO EXIT MOD 
177761 LA221: BIC #177761,R3 ;CLEAR ALL BUT COMMAND 
000006 1B221: CMP #6,R3 F COMMAND 
BNE LB221 “EQUALS ‘READ SECTOR’, THEN 
003560 MOV SODVDN(R1).R4  =GET <SUC> DRIVE DONE FLAG 
1C221: TST R4 :1F <SUC> DRIVE DONE FLAG 
BEQ EA221 THEN 
003560 CLR SODVDN(R1) “CLEAR <SUC> DRIVE DONE FLAG 
003766 1E221: TST SOCMDF (R1) :IF <SUC> NEW COMMAND FLAG 
BNE EE221 :NOT SET, THEN 
003762 ADD #2,SYOTPT(R1) =: INCREMENT <SUC> CMD TABLE PTR 
003762 MOV SYOTPT(R1) .R2 E 
003772 000542 MOV CMDTBL(R2).CMD :GE 
000542 MOV CMD ,R3 :SAVE COMMAND IN TEMP#3 
1D221: TST R3 IF C 
BGE EA221 [EQUALS 'DONE’’, THEN 
003762 CLR SYOTPT(R1) :RESET CMD TABLE POINTER 
003766 FE221: CLR SOCMDF (R71) :CLEAR <SUC> NEW COMMAND FLAG 
BR EA221 :BR TO EXIT MOD 
2 003762 1LB221: ADD #2,SYOTPT(R1) =: INCREMENT <SUC> CMD TABLE PTR 
003766 INC SOCMDF (R1) “SET <SUC> NEW C FLAG 




















000506 00542 EA221: BIS DENS , CMD sSET SELECTED DENSITY 
003560 CLR SODVDN(R1) :CLEAR <SUC> DRIVE DONE FLAG 
X221: RETURN ; RETURN 
SYOTPT: 0 ;SYSTEM#O COMMAND TABLE POINTER 
SY1TPT: 0 ;SYSTEM#1 COMMAND TABLE POINTER 
SOCMDF: 0 :SYS#O NEW COMMAND FLAG 
STCMDF: 0 ;SYS#1 NEW COMMAND FLAG 
: ee renin COMMAND / PTR 
CMDTBL: .WORD 0113 : 0 / Q / READ MAINT STATUS /0 
-WORD 0133 ; 1 ¢ Q / READ MAINT STATUS ‘< 
-WORD 0111 ; 0 / O / SET DENSITY 
-WORD 0131 ; 1 / OQ / SET DENSITY 16 
-WORD 0107 ; 0 ¢/ OQ / READ SECTOR 419 
-WORD 0127 ; 1 ¢ Q / READ SECTOR /12 
-WORD 1107 ; 0 / 1 /¢ READ SECTOR /14 
-WORD 1127 ; 1 / 1 / READ SECTOR /16 
WORD -1 ;DONE TERMINATOR /20 
1 ;DONE TERMINATOR /22 


6908 004014 177777 | “WORD  - 
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23 
CZRXEA.P11 20-SEP-78 10:48 E 2.2.2 - TRACK & SECTOR UPDATE SEQ 0034 
a -SBTTL MODULE 2.2.2 = TRACK & SECTOR UPDATE 
6913 :BEGINROUTINE (MOD 2.2.2 TRACK & SECTOR UPDATE) 
6914 ; INITIALIZE MODULE, IF INITIALIZE PROGRAM SET 
6915 ; IF SOFT_SWITCH _REG=>CRC ALL TRACKS SET [AJ 
6916 : THEN 
6917 ; IF <SUC> DRIVE SECTOR DONE (BI 
6918 .- YY : THEN 
6919 a : IF <SUC> DRIVE TRACK DONE (CJ 
6920 soo : : THEN 
6921 g-« 3 : : CLEAR <SUC> DRIVE TRACK DONE 
6922 a +>i9 : : SET <SUC> DRIVE TRACK = 76 
6923 4% : : SET <SUC> DRIVE DONE 
6924 - ¢: : : ELSE 
6925 we og : : DECREMENT <SUC> DRIVE TRACK 
6926 — : : SET TRACK=<SUC> DRIVE TRACK 
6927 : : IF <SUC> DRIVE TRACK=0 (DJ 
6928 By 2 : : : THEN 
6929 eS : : : SET <SUC> DRIVE TRACK DONE 
6930 el : : ENDIF 
6931 S Puy : : SET SECTOR = <SUC> DRIVE SECTOR 
6932 eta : ENDIF 
yo ee : pi _— <SUC> DRIVE SECTOR DONE 
6935 Re : SET <SUC> DRIVE SECTOR=INTERLEAVE + <SUC> DRIVE SECTOR 
6936 a : SET SECTOR=<SUC> DRIVE SECTOR 
6937 Z3 : IF <SUC> DRIVE SECTOR=26 CEJ 
6938 aires : : THEN 
6939 : SET <SUC> DRIVE SECTOR DONE FLAG 
6940 : : SET <SUC> DRIVE SECTOR=1 
6941 ae : : ELSE 
6942 = 8 : : IF SECTOR >26 (FJ 
6945 cal : : ¢ THEN 
6944 : : SET <SUC> DRIVE SECTOR & SECTOR =2 
6945 < : : ENDIF 
6946 eg ; ENDIF 
6947 a ¥ : SET TRACK = <SUC> DRIVE TRACK 
6948 : ENDIF 
6949 : ELSE 
6950 : IF <SUC> DRIVE TRACK DONE FLAG SET (GJ 
6951 ee : THEN 
6952 re : SET TRACK=0 
6953 Se : SET <SUC> DRIVE TRACK=0 
6954 s CLEAR <SUC> DRIVE TRACK DONE 
6955 : SET <SUC> DRIVE DONE 
6956 ‘ LSE 
6957 ; SET TRACK =76 
6958 : SET <SUC> DRIVE TRACK DONE FLAG 
6959 ; ENDIF 
6960 f SET <SUC> DRIVE SECTOR=1 
6961 . SET SECTOR= <SUC> DRIVE SECTOR 
6962 ; ENDIF 
6963 7 ENDROUT INE 
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65 ________—_ {eae RNneKReKsesasasesnensesewerenesssesscscssescessseessese<= 


6966 004016 005737 004360 TRKSEC: TST INITTS :1F INITIALIZE PROGRAM 


CZRXEAO RXO2 FMTR PROG 
20-SEP-78 
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064 
004072 
004104 


SERRERRRRER ERE EES 
RSEVRSSOKSKNGEW 
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174372 


004376 


000502 


See 5% 





000502 


004372 
000500 


10:48 PAGE 68 
E 2.2.2 - TRACK & SECTOR UPDATE 


1$ ;SET, THEN 

INITTS “CLEAR INITIALIZE FLAG 

DVTKDN “CLEAR SYS#O DRIVE TRK DONE 
DVTKDN¢2 ;CLEAR SYS#1 DRIVE TRK DONE 
DVSCDN iCLEAR SYS#O DRIVE SEC DONE 
DVSCDN+2 ;CLEAR SYSA#1 DRIVE SEC DONE 

#76. ,.DVTRK sSET SYS#O DRIVE TRK = 76 

#76. ,.DVTRK+2 ;SET SYS#1 DRIVE TRK = 76 

#1 ,.DVSEC ;SET SYSTEM#O DRVSEC=1 
#1,DVSEC+2 ;SET SYSTEM#1 DRVSEC=1 

SSUCOF :CALL SET <SUC> OFFSET 

MCRCALL ,@SWR ‘SET TN CRC ALL TRACKS 
DVSCDN(R1) “IF <SUC> DRIVE SECTOR DONE FLAG 
LB222 SET, N 

DVTKDN(R1) ‘IF <SUC> DRIVE TRACK DOME FLAG 
LC222 THEN 

DVTKDN(R1) AR <SUC> DRIVE TRACK DONE FLAG 


:CLE 
:SET <SUC> DRIVE TRACK =76 
T <SUC> DRIVE DONE FLAG 
O ENDIF ‘C’ 


EC BR TO E 
DVTRK(R1), TRACK ;SET TRACK = <SUC> DRIVE TRACK 
DVTRK(R1) :DECREMENT <SUC> DRIVE TRACK 


#76. ,DVTRK(R1) 
SODVDN(R1) 


DVTRK(R1) sIF <SUC> DRIVE TRACK 
ED222 sEQUALS ZERO, THEN 
DVTKDN(R1) ;SET <SUC> DRIVE TRACK DONE FLAG 


#1 ,.DVSEC(R1) sSET <SUC> DRIVE SECTOR= 
DV VSCDN( R1) : CLEAR nS oye _ SECTOR DONE FLAG 


x :BR TO MOD 

#INTLV DVSEC(R1);SET <SUC> DRV SEC=INTERLEAVE + OLD DRV SEC 
DVSEC(R1).S/CTR :SET SECTOR=<SUC> DRIVE SECTOR 

taal #20. SECTOR 


IF 
DVSCDN(R1) 





. THE 
SSET <SUC> DRIVE SECTOR DONE FLAG 








#1 -DVSEC(R1) SET <SUC> DRIVE SECTOR=1 
SECTR,426. IF SECTOR 

EE222 THEN 

#2,SECTR SET " SECTOR=2 

#2 ,.DVSEC(R1) SET <SUC> DRIVE SECTOR = 2 
DVTRK(R1), TRACK SET TRACK = <SUC> DRIVE TRACK 
X22 “BR TO MOD Ex! 

DVTKDN(R1) ;IF <SUC> DRIVE TRACK DONE FLAG 
LG222 ; THEN 

DVTKDN(R1) : CLEAR <SUC> DRIVE TRACK DONE FLAG 
TRACK SET RACK=0 

SODVDN(R1) s SET <SuC> DRIVE DONE FLAG 
EG222 TO ENDIF ‘G* 

#76., TRACK “SET TRACK=76 

DVTKDN(R1) ;SET <SUC> DRIVE TRACK DONE FLAG 
#1 ,DVSEC(R1) ;SET <SUC> DRIVE SECTOR=1 
DVSEC(R1),SECTR 


:SET SECTOR=<SUC> DRIVE SECTOR 
:RETURN - MOD EXIT 


SEQ 0056 
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7023 aerate eet eee 
7024 000002 INTLV = 2 
7025 
0 ES a ee ne en oa ee 
La 004360 000000 INITTS: 0 s INITIALIZE TRACK & SECTOR FLAG 
7029 
30 004362 000000 DVTKDN: .WORD 0Q ;DRIVE TRACK DONE (DVTKDN) SYS #0 
7031 004364 000000 -WORD Q ;DRIVE TRACK DONE (DVTKDN) SYS #1 
32 004366 000000 DVSCDN: .WORD 0 ;DRIVE SECTOR DONE (DVSCDN) SYS #0 
7033 004370 000000 «WORD OQ sDRIVE SECTOR DONE (DVSCDN) SYS #1 
34 004372 000001 DVSEC: .WORD 1 ;DRIVE SECTOR (DVSEC) SYS #0 
7035 004374 000001 .WORD 1 ;DRIVE SECTOR (DVSEC) SYS #1 
36 004376 000114 DVTRK: .WORD 76, ;DRIVE TRACK (DVTRK) SYS #0 
ote 004400 000114 -WORD 76. ;DRIVE TRACK (DVTRK) SYS #1 
7039 a ata aaa aa tact ae ee 
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CZRXEA.P11 
7041 
7042 
7043 
7044 
7045 
7046 
7047 
7048 
7049 
7050 
7051 
7052 
7055 
7054 
7055 
7056 
7057 
7058 
7059 
7060 
7061 
7062 
7063 
7064 004402 
7065 004406 
7066 004414 
7067 004420 
7068 004424 
7069 004430 
7070 004432 
7071 004440 
7072 004442 
7073 004450 
7074 004456 
7075 
7076 004472 
7077 004500 
7078 004506 
7079 ~=004512 
7080 004516 
7081 004522 


000622 
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uit > 3 10:48 PAGE 68-2 
ULE 2.2.3 - DRIVE DRIVER 


.SBTTL MODULE 2.2.3 = DRIVE DRIVER 
;BEGINROUTINE (MOD 2.2.3 = DRIVE DRIVER) 
> CALL SET <SUC> ADDRESS AND OFFSET 
: SAVE COMMAND IN <SUC> COMMAND 
IF COMMAND=SET DENSITY 
ise! <SUC> WATCHDOG MULTIPLIER LIMIT=400 
poet <SUC> WATCHDOG MULTIPLIER LIMIT=20 


> END 
> SETUP SECTOR FOR PRINT 
: SETUP TRACK FOR PRINT 


SEQ 00358 


SETUP SECTOR ADR FOR OUTPUT 
SETUP TRACK ADR FOR OUTPUT 
SETUP COMMAND FOR OUTPUT 
CALL SET PRIORITY HIGH 

CALL OUTPUT C 


CALL SET PRIORITY LOW 
: ENDROUT INE 


<< (em ae oy oe 
ea Te Se Oe OR a es te ED CR SER SP Se SP SP SP GF SS SP OD OS Oh EP SS OS OD SD SP Oe Se OS Ge Oe OD SS OE OD Oe Oe Se Os ee ee ee ee ee a es ee se 
* 








DRVR: UCAD :CALL SET <SUC> ADDRESS & OFFSET 
CMD, SOCMD(R1) : SAVE COMMAND IN <SUC> COMMAND 
CMD .R =GET C 
#177761 ,R2 : CLEAR ALL BUT COMMAND 
1A223 W#SETDEN,R2 OMMAND 
BNE LA2 cOUALS “SET DENSITY’’ 
Mov #400, SOWMLT(R1) : SET <SUC> WA WATCHDOG MULT LIMIT=400 
LA223: #20, SOWMLT(R1) =SET <SUC> WATCHDOG MULT LIMIT=20 
EA223: SECTR,SOSEC(R1) :SETUP SECTOR FOR PRINT 
TRACK, SOTRK(R1) :SETUP TRACK FOR PRINT 
SECTR,SECADR | :SETUP SECTOR ADR FOR OUTPUT 
TRACK, TRKADR §;:SETUP TRACK ADR FOR OUTPUT 
CMD, WDOT :SETUP COMMAND FOR OUTPUT 
PRIHI :CALL SET PRIORITY HIGH 
OUT CMD :CALL OUTPUT COMMAND 
PRILO “CALL SET PRIORITY LOW 
X223: *RETURN 
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RXEA 20-SEP-78 10:48 MODULE 2.2.3.1 = OUTPUT DRIVE COMMAND SEQ 0039 
7084 .SBTTL MODULE 2.2.3.1 = OUTPUT DRIVE COMMAND 
7086 004524 012737 000040 010226 OUTCMD: MOV sREADY TEST WD (PASS TO 2.2.3.1.1) 
7087 004532 0137%7 000540 005102 MOV “WORD FOR OUTPUT (PASS TO 2.2.3.1.1) 
7088 004540 013737 000472 005104 MOV “ADDRESS OF OUTPUT (PASS TO 2.2.3.1.1) 
7089 004546 004737 005124 JSR ‘OUTPUT FUNCTION WD (FW) 0 xt 2.3.1.1) 
7090 004552 032737 000010 000540 182231: BIT ;THEN, IF FUNCTION IS 
7091 004560 001043 BNE AD, WRITE, FILL, EMPTY’ (FW BIT #3=0) 
7092 562 032737 000004 000540 1IH2231: BIT “AND THEN IF FUNCTION IS 
7093 004570 001047 BNE SEMPTY, FILL’ (FW BIT#2=0) 
7094 004572 012737 000200 010226 MOV “THEN SET OUTPUT READY TEST WORD (PASS To 2 2 3, 1.1) 
7095 004600 013737 005122 005102 MOV ‘AND SET WORD FOR OUTPUT (PASS TO 2.2.3.1.1) 
7096 004606 74 005104 MOV :AND SET ADDRESS OF OUTPUT (PASS 10 22.3544) 
7097 004614 004737 005124 JSR ;OUTPUT BASE ADDRESS WORD © 2.2.3.1.1 
7098 004620 032737 000002 000540 1k2231: BIT “IF 'FILL'’ (FW BIT#1=0) 
7099 004626 001004 BNE : THEN 
7100 004630 013737 005116 005102 MOV :SET DATA FILL BUFFER ADR (PASS TO 2.2.3.1.1) 
7101 004636 000403 BR TO END IF 
7102 004640 013737 005120 005102 LK2231: MOV “SET DATA cipTy BUFFER ADR. (PASS TO 2.2.3.1.1) 
7103 004646 012737 000200 010226 EK2231: MOV :SET OUTPUT READY TEST WORD (PASS TO 2.2.3.1.1) 
7104 004654 013737 74 005104 MOV “AD T 0 2.2.3.1.1) 
7105 737 005124 JSR 3.1.1 
7106 004666 000444 BR 
7107 004670 032737 000004 000540 1(C2231: BIT 
7108 004676 001455 BEQ 
7109 004700 032737 000002 000540 1D2231: BIT 
7110 004706 001035 BNE 
7111 004710 012737 000200 010226 LH2231: MOV 
7112 004716 013737 005114 005102 MOV 
7113 4 177700 005102 BIC 
7114 013737 74 005104 MOV 
7115 004740 004 005124 JSR 
7116 004744 013737 005112 005102 MOV 
7117 004752 042737 177600 005 BIC 
7118 760 012737 000 010226 MOV 
7119 004766 013737 74 005 MOV SS OF OUTPUT 
7120 004774 7 005124 JSR “OUTPUT TRACK ADDRESS 
7121 005000 EH2231: BR “ENDIF H =DONE 
7122 005002 012737 000200 010226 1D2231: MOV >SET READY WD TO TR MODE 
7123 005010 012737 017446 005102 MOV :EXT ERR. CODE TABLE ADD 
005104 MOV : ADDRESS OF OUTPUT, RXDB 
737 JSR P BASE ADD FOR ERR. CODE 
000540 12231: BIT #2, WDOT “IF FUNCTION IS 
BEQ LE2231 :" READ STATUS’ (FW BIT#1=1) 
005106 TE2231: MOV #1, ERSTAT *THEN-SET ERR STATUS FLAG 
BR END2231 * DONE 
010226 LE2231: MOV WTRBIT.RDYWD | :SET OUTPUT READY TEST wD 
005102 MOV VALWD , WRDS “VALIDATION WORD 
005104 MOV RXDBAD , ADRS “ADDRESS OF OUTPUT. RXDB 
C,OUTSWD “OUTPUT VALIDATION WORD 


JSR ; 
—, RTS PC ;RETURN TO MOD 2.3 
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013737 
013737 
004 


0 
010226 
005102 


010230 
010226 


173320 
177722 


20-SEP-78 
MODULE 2.2. 


—s 
—_ 


-SBTTL MODULE 2 


X22511: RTS 
sMOD 2.2. 6 167 


B 4 
sts 748 PAGE 68-4 


OUTPUT DRIVE COMMAND 


2.5.1.1 OUTPUT WORD 
sMODULE 2.2.3.1.1 OUTPUT ADDRESS 
sMODULE 0.0 ERR STATUS READ FLAG 
; VALIDATION Pr (SET DENS-ASCII ‘‘I'’) 


;MODULE 2. 


; SS 
sBASE ADDRESS FILL BUFFER 
;BASE cant EMPTY BUFFER 


--- END MODULE ------------------------------------------ 


2.5.1.1 = OUTPUT SINGLE WORD 


RXCSAD,CSRADR ;SET C&S REG ADR 

RDYWD .RDYWD sOUTPUT READY WORD (PASS TO DELAY) 

PC ,DELAY :DELAY FOR READY DO DELAY 

RDYWD , ARXCSAD ;1F READY, 

X22311 3 THEN 

WRDS ,@ADRS ha TO ADDRESS 

----- END MODULE -~-------------------------------------- 


SEQ 0040 
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nak > 3 10:48 PAGE 68-5 
ULE 2.2.5 = ERROR CHECK 


~SBTTL MODULE 2.2.5 = ERROR CHECK 


; BEGINROUT INE (MOD 2.2.5 = ERROR CHECK) 
CLEAR PRINT HEADER FLAG & ERROR FLAG 
CALL SET <SUC> ADDRESS & OFFSET 
GET <SUC> COMMAND (FROM LAS 
IF roy COMMAND=READ MAINT STATUS CA] 


T OPERATION) 


SET COMMAND HEADER="READ MAINT STATUS'' 

SETUP CSR & ESR CHECK BITS & DON'T CARE BITS 

CALL _CSR ERROR CHECK & CALL ESR ERROR CHECK 

SET ERROR FLAG, IF ANY ERRORS 

IF —- SET (6J 


SET ERROR=<READ MAINT STATUS COMMAND ERROR> 


CALL DRIVES DROP (MOD 2.2.5.1) 
fa ne LOOP (MOD 2.2.5.4) 
; CALL DRIVES AVAILABLE CHECK (MOD 2.2.5.2) 
ELSE 
a a COMMAND=SET DENSITY Cc] 


SET COMMAND HEADER="‘SET DENSITY veer * 

CALL SET TEST BITS MOD 2.2.5.3) 
CALL CSR ERROR CHECK & CALL ESR ERROR C CHECK 

SET ERROR FLAG, IF ANY ERRORS 


- ar” FLAG SET [DJ 
SET ERROR=<SET DENSITY COMMAND ERROR> 
CALL DRIVES DROP (MOD 2.2.5.1 
: (MOD 2.2.5.4 
c 
LSE 
IF a COMMAND=READ SECTOR CFI 
SET COMMAND HEADER="READ SECTOR COMMAND ERROR'’ 
CALL SET TEST BITS (MOD 2.2.5.3) 
CALL CSR ERROR CHECK & CALL ESR ERROR CHECK 
SET ERROR FLAG, IF ANY ERRORS 
IF ERROR_FLAG SET CEJ 
: THEN 
IF RXDB=CRC ERROR (GJ 
: THEN 
; tase TRACK & SECTOR IDENT 
SET ERRORS READ SECTOR COMMAND ERROR> 
CALL DRIVES DROP (MOD 2.2.5.1) 
CALL LOOP (MOD 2.2.5.4) 


> ENDIF 
 ENDROUT INE 


SEQ 0047 


D 4 
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1518 a a a 
7219 005164 005037 000602 ERRCHK: CLR HDRFLG :CLEAR HEADER FLAG 
7220 005170 005037 005526 CLR ERRFLG “CLEAR ERROR FLAGS 
7221 005174 002737 010076 CALL  SSUCAD “CALL SET <SUC> ADDRESS & OFFSET 
7222 005200 016102 000622 MOV SOCMD(R1 > R2 :GET <SUC> LAST COMMAND 
7223 005204 042702 177761 BIC 1 Re :CLEAR ALL BUT COMMAND 
7224 005210 022702 000012 1A225: CMP Alle i :1F COMMAND 
7225 005214 001047 BNE 1225 sEQUALS ‘READ MAINT STATUS’', THEN 
7226 005216 012737 017346 000600 MOV #MSGCDS . TMSGAD :SETUP C HEADER 
7227 005224 012737 000040 000546 MOV #DNBIT ,CSRCMP :SET DONE BIT CK-CSR COMPARE 
7228 005232 052737 004000 000546 BIS #RX2BIT,CSRCMP :SET DOUBLE DENSITY BIT CK-CSR COMPARE 
7229 005240 012737 173537 000544 MOV #178537. CSRMSK ;SET CSR DON'T CARE BITS 
7230 005246 005037 000552 CLR ESR :SET DRV RDY-ESR COMPARE 
7231 005252 012737 171662 000550 MOV #171662,ESRMSK :SET-ESR DON'T CARE BITS 
7232 005260 004737 010404 CALL  CSRCHK :CALL CSR ERROR CHECK 
7233 005264 010037 005526 MOV RO, ERRFLG :SET ERROR FLAG, IF ANY ERRORS 
7234 005270 004737 010624 CALL —_ ESRCHK :CALL ESR ERROR’ CHECK 
7235 005274 050037 005526 BIS RO, ERRFLG ;SET ERROR FLAG, IF ANY ERRORS 
7236 005300 005737 005526 1B225: TST ERRFLG “IF ERROR FLAG 
7237 005304 001410 BEQ LB225 :SET, THEN 
7238 005306 004737 012240 JSR PC, ERRSET 

(2) 005312 000004 “WORD #4 ;FATAL ERR # 4 - READ MAINT STATUS COMMAND ERROR 
7239 005314 004737 005530 CALL  DRVDRP :CALL DRIVES DROP (MOD 2.2.5.1) 
7240 005320 004737 006406 CALL —— LOOP :CALL LOOPING MODULE (MOD 2.2.5.4) 
7241 005324 000476 BR EA225 :BR TO MOD EXIT 

7242 005326 004737 006040 LB225: CALL  DRVAVL :CALL DRIVES AVAIL CHK (MOD 2.2.5.2) 
7243 005332 000473 BR EA225 :BR TO MOD EXIT 

7244 005334 022702 000010 1C225: CMP ASETDEN,.R2 :1F COMMAND 

7245 005340 001030 BNE IF225 sEQUALS ‘SET DENSITY’’, THEN 

7246 005342 012737 017311 000600 MOV WMSGCD4,TMSGAD ;:SETUP COMMAND HEADER 

7247 005350 004737 006266 CALL STSTBI “CALL SET TEST BITS (MOD 2.2.5.3) 
7248 005354 004737 010404 CALL SRCHK :CALL CSR ERROR CHECK 

7249 005360 010037 005526 MOV RO ERAFLG :SET ERROR FLAG, IF ANY ERRORS 

7250 005364 004737 010624 CALL _ ESRCHK =CALL ESR ERROR CHECK 

7251 005370 050037 005526 BIS RO, ERRFLG :SET ERROR FLAG, IF ANY ERRORS 

7252 005374 005737 005526 1D225: TST ERRFLG -1F ERROR FLAG 

7253 005400 001450 BEQ EA225 “SET, THEN 

7254 005402 004737 012240 JSR PC, ERRSET 

(2) 005406 000005 -WORD #5 :FATAL ERR # 5 ~ SET DENSITY COMMAND ERROR 
7255 005410 004737 005530 CALL DRVDRP :CALL DRIVES DROP (MOD 2.2.5.1) 
7256 005414 004737 006406 CAI LOOP ;CALL LOOPING MODULE = (MOD 2.2.5.4) 
7257 005420 000440 BR EA225 

7258 005422 022702 000006 1F225: CMP #RDSEC,R2 “IF COMMAND 7 

7259 005426 001035 BNE EA225 “EQUALS ‘READ SECTOR''. THEN 

7260 005430 012737 017254 000600 MOV WMSGCD3,TMSGAD :SET COMMAND HEADER 

7261 005436 004737 006266 CALL STSTBT -CALL SET TEST BITS (MOD 2.2.5.3) 
7262 005442 004737 010404 CALL “CALL CSR ERROR CHECK 

7263 005446 010037 005526 MOV nO, ERAFLG :SET ERROR FLAG, IF ANY ERRORS 

7264 005452 004737 010624 CALL SRCHK :CALL ESR ERROR CHECK 

7265 005456 050037 005526 BIS RO, ERRF LG “SET ERROR FLAG, IF ANY ERRORS 

7266 005462 005737 005526 1E225: TST RFLG IF ERROR FLAG 

7267 005466 001415 BEQ FA Ao05 “SET, THEN 

7268 005470 032777 000001 172776 16225: BIT #CRCERR,@RXDBAD :IF CRC ERROR 

7269 005476 001402 BEQ EG225 “SET, 


THEN 
7270 005500 004737 011232 CALL PRTKSC :CALL PRINT TRACK/SECTOR 


E 
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XEA.P11 20-SEP-78 10:48 ERROR 5 SET DENSITY COMMAND ERROR SEQ 0043 
7271 005504 EG225: 
(1) 005504 004737 012240 JSR PC, ERRSET 
(2) 005510 000006 . WORD #6 ;FATAL ERR # 6 = READ SECTOR COMMAND ERROR 
7272 005512 004737 005530 CALL DRVDRP ;CALL DRIVES DROP (MOD 2.2.5.1) 
7273 005516 004737 006406 CALL LOOP ;CALL LOOPING MODULE (MOD 2.2.5.4) 
7274 005522 000240 EA225: NOP : 
a ia 005524 000207 X225: RETURN :RETURN 
7277 005526 000000 ERRFLG: 0 ;ERROR FLAG 
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CZRXEA.P11 20-SEP-78 10:48 MODULE 2.2.5.1 = DRIVE DROP 
yaar ~SBTTL MODULE 2.2.5.1 = DRIVE DROP 
7282 :BEGINROUTINE (MOD 2.2.5.1 = DRIVE DROP) 
7283 ; CLEAR DROP_DRIVE CONTROL WORD 
7284 : CLEAR PRINT SIDE FLAG 
7285 : (CALL SET <SOC> OFFSET 
7286 ; IF <SuUC> COMMAND =DRIVE #1 SELECTED 
7287 : oo: THEN 
7288 Blerg IF <SUC> COMMAND=SIDE #1 SELECTED 
7289 $m : THEN 
7290 : IF <SUC> SYS_AVAIL=SIDE #1 
7291 ae. : : THEN 
7292 ee : : SETUP PRINT SIDE=41, DRIVE=A41 
7293 Soy : : SET DROP_DRIVE=SIDE 1/DRIVE 1 
7294 ees SET PRINT SIDE FLAG 
7295 ae : ENDIF 
7296 re : 2a 
7297 a al : SET DROP _DRIVE=SIDE O/DRIVE 1 
7298 ae : IF <SuC> SYS_AVAIL=SIDE #1 
7299 se : THEN 
7300 ae : SETUP PRINT Ne kped DRI VE=41 
7301 Fa : ; SET PRINT_SIDE_FLAG 
7302 aa : : ELSE 
7303 oe : : SETUP PRINT DRIVE=A41 
7304 98 : END IF 
7305 ae ENDIF 
7306 et ee oS 
7307 oy IF <SUC> COMMAND=SIDE 41 SELECTED 
7308 e 3 : THEN 
7309 ees : IF <SUC> SYS_AVAIL=SIDE #1 
7310 Con - : : THEN 
7311 oe : : SETUP PRINT SIDE=41, DRIVE=40 
7312 i : : SET DROP_DRIVE=SIDE 1/DRIVE 0 
7313 ae : ENDIF 
7314 ee : ELSE 
7315 ee : SET DROP_DRIVE=SIDE 0O/ DRIVE 0 
7316 ee : IF <SuC> SYS AVAIL=SIDE #1 
7317 si” 4 : : THEN 
7318 a ae : : SETUP PRINT De tye'g DRIVE=#0 
7319 eo, : : SET PRINT_SIDE_FLAG 
7320 2 9 : ELSE 
7321 : : SETUP PRINT DRIVE=A40 
7322 + ae ENDIF 
7323 ee 
7324 ; ENDIF 
7325 ; IF DROP_DRIVE NOT=0 
7326 ; =: THEN 
7327 eee CALL PRINT SYSTEM IDENTIFICATION 
7328 eT CALL PRINT DRIVE IDENTIFICATION 
7329 a DROP DRIVES SET IN DROP_DRIVE FROM <SUC> AVAIL 


7330 ENDIF 
7351 : ENDROUT INE 





4 
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CZRXEA.P11 20-SEP-78 1 2.2.5.1 = DRIVE DROP SEQ 0045 
004036 DRVDRP: CLR DROPDV :CLEAR DROP DRIVES CONTROL WORD 
011230 CLR PTSIDF “CLEAR PRINT SIDE FLAG 
010126 CALL  SSUCOF “CALL SET <SUC> OFFSET 
000020 000622 1A2251: BIT #WORV1,SOCMD(R1) :IF <SUC> COMMAND=DRIVE 41 
BEQ 1£2251 *SELECTED, THEN 
001000 000622 182251: BIT WSIDE1,SOCMD(R1):IF <SUC> COMMAND=S IDE 1 
BEQ 51 “SELECTED, THEN 
000010 000612 1C2251: BIT W10.SOAV(R1) <IF <SUC> SYS AVAIL=SIDE 41 
BEQ 1H2251 : SET, 
000001 011226 MOV #1 SIDE : SETUP PRINT SIDE=41 
000001 011224 MOV #1 DRIVE “SETUP PRINT DRIVE=A1 
000010 006036 MOV #10, DROPDV “SET DROP DRIVE=S DE 1/DRIVE 1 
011230 INC TSIDF “SET PRINT SIDE FLAG 
BR 1H2251 “BR TO IF 
000002 006036 LB2251: MOV #2. DROPDV *SET DROP ORIVE® SIDE O/DRIVE 1 
000010 000612 1D2251: BIT #10,SOAV(R1) “IF <SUCD SYS AVAIL=SIDE #1 
BEQ LD2251 “SET, T 
7352 2 005037 011226 CLR IDE : SETUP PRINT SIDE=#0 
7353 005646 012737 000001 011224 MOV #1,DRIVE >SETUP PRINT DRIVE=41 
7354 005654 005237 011230 INC PTSIDF *SET PRINT SIDE FLAG 
7355 005660 47 BR 1H2251 “BR T *H! 
7356 005662 012737 000001 011224 LD2251: MOV #1, DRIVE > SETUP PRINT DRIVE=A1 
7357 005670 43 BR 1H2251 -BR TO IF 
7358 005672 032761 001000 000622 I£2251: BIT #SIDE1,SOCMD(R1):IF <SUC> cowexsine #1 
7359 005 001417 BEQ : SELECTED. THEN 
7360 005702 032761 000001 000612 IF2251: BIT #1, SOAV(R1) :IF <SUC> AVAIL=SIDE #1/DRIVE #0 
7361 005710 001433 BEQ 1H2251 ‘s THEN 
7362 005712 012737 000001 011226 MOV #1, SIDE “SETUP PRINT SIDE=A1 
7363 005720 005037 011224 CLR DRIVE -SETUP PRINT DRIVE=#0 
7364 005724 012737 000004 006036 MOV #4, DROPDV :SET DROP DRIVE=S1DE 1/DRIVE 0 
7365 005 005237 011230 INC PTSIDF: ;SET PRINT SIDE F LAG 
7366 005 20 BR 1H2251 “BR TO IF 
7367 005740 012737 000001 006036 LE2251: MOV #1, DROPDV :SET DROP BRIVE<SIDE O/DRIVE 0 
7368 005746 032761 000004 000612 162251: BIT #4. SOAV(R1) : TF <SUC> SYS AVAIL=SIDE #1/DRIVE #0 
7369 754 001407 BEQ LG62251 “SET, T 
7370 005756 005037 011226 CLR IDE > SETUP PRINT SIDE=#0 
7371 762 005037 011224 CLR DRIVE “SETUP PRINT DRIVE=4#0 
7372 005766 005237 011230 INC PTSIDF ;SET PRINT SIDE FLAG 
7373 005772 02 BR 1H2251 :BR TO IF 
7374 005774 005037 011224 LG2251: CLR DRIVE : SETUP IP int DRIVE=#0 
7375 006000 005737 006036 1H2251: TST R :1F DROP DRIVE CONTROL WORD 
7376 006004 001413 BEQ X2251 THEN 
7377 006006 004737 011132 CALL § PRTSYS “CALL PRINT SYSTEM IDENT 
7378 006012 004737 011154 CALL —— PRTD :CALL PRINT DRIVE IDENT 
7379 006016 043761 006036 000612 BIC DROPDV.SOAV(R1) ;DROP DRIVES SET IN <SUC> AVAIL 
7380 006024 012704 015121 MOV SG633,R4 “SET MSG=-> ' DROPPED'' 
(1) 006030 004737 013232 CALL ‘ TTOUT “PRINT MSG 
7381 006034 000207 X2251: RETURN *RE TURN 
7383 006036 000000 DROPDV: 0 :DROP DRIVE CONTROL WORD 


H 4 
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ENDIF 
- ENDROUT INE 


CZRXEA.P11 20-SEP-78 10:48 MODULE 2.2.5.2 = DRIVES AVAILABLE CHECK SEQ 0046 
rae -SBTTL MODULE 2.2.5.2 = DRIVES AVAILABLE CHECK 
7388 :BEGINROUTINE (MOD 2.2.5.2 = DRIVES AVAILABLE CHECK) 
7389 ; CLEAR DROP AVAILABLE DRIVES CONTROL 
A aw! : “d a COMMAND=DRIVE #1 SELECTED [A] 
oak ; LF ee eenive NOT RDY (BJ 
7394 ; IF <SUC> AVAIL=DRIVE #1 SET (CJ 
7395 : : THEN 
96 : SET DRIVE=1 
7397 SET DROP_AVAIL_DRIVE=41 
7398 : F 
7399 4 ENDIF 
7400 : IF RXES=SIDE NOT RDY (DJ 
7401 : : THEN 
7402 . : DROP <SUC> AVAIL-SIDE #1/DRIVE #1 
7403 : ENDIF 
7404 : LSE 
7405 : IF RXES=DRIVE NOT RDY (EJ 
7406 : : THEN 
7407 IF <SUC> AVAIL=DRIVE #0 SET {FJ 
7408 ’ : THEN 
7409 SET DRIVE=0 
7410 : SET DROP_AVAIL_DRIVE=40 
7412 : ENDIF 
7413 2 IF RXES=SIDE NOT RDY [GJ 
7414 - : THEN 
7415 : DROP <SUC> AVAIL-SIDE #1/DRIVE #1 
7416 : ENDIF 
7417 ; ENDIF ) 
Age. ; - THEN _AVAIL_DRIVE NOT=0 CH] 
7420 : CALL PRINT SYSTEM IDENT 
7421 : SETUP PRINT “DRIVE NOT READY-IS DISK IN DRIVE &'' 
7422 ; CALL PRINT SYSTEM IDENT 
7423 : CLEAR SIDE PRINT FLAG 
7424 3 CALL PRINT DRIVE IDENT 
7425 : DROP THE DRIVE SET IN DROP _AVAIL_DRIVE IN <SUC> AVAIL 
noe : SETUP & PRINT ‘DROPPED’ 
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000001 
011224 
000001 
000002 


000004 
006264 
011132 


006264 
015121 
013232 


000622 
172406 
000612 
011224 
006264 
172352 
000612 
172332 
000612 
006264 
172300 
000612 


000612 


20-SEP-78 
MODULE 


DRVAVL : 
IA2252: 
IB2252: 
C2252: 


ID2252: 


IE2252: 
IF 2252: 


1G225e: 


IH2252: 


EH2252: NOP 


X2252: 
DROPAV: 


RETURN 


0 


10:48 PAGE 68-11 
2.2.5.2 = DRIVES AVAILABLE CHECK 


DROPAV ;CLEAR DROP AVAIL DRIVE 


;CALL SET <SUC> ADDRESS & OFFSET 


SSUCAD 
“MDRV1,SOCMD(R1) ;IF <SUC> 


COMMAND 

:HAS DRIVE #1 SELECTED, THEN 

WORVRDY ,@RXDBAD ‘IF RXES 
“DRIVE RDY NOT SET, THEN 

#2, SOAV(R1) “IF <SUC> DRIVE #1 

1D2252 :AVAILABLE, THEN 

“SET DRIVE=1 FOR 


#1, DRIVE PRINT 
#2. DROPAV :SET DROP AVAIL SIDE #0, DRIVE #! 
WSIDRDY,@RXDBAD ‘IF RXES 
1H2252 :SIDE RDY NOT SET. THEN 
W10,SOAV(R1) = DROP SIDE var DRIVE #1 
1H2252 “BR TO IF 
#ORVRDY ,@RXDBAD :IF RXES 

:DRIVE RDY NOT SET. THEN 
#1, SOAV(R1) “IF <SUC> DRIVE #0 
162252 “AVAILABLE, T 
DRIVE “SET DRIVE=0 
#1, DROPAV :SET DROP AVAIL SIDE #0. DRIVE #0 
#SIDRDY,@RXDBAD :IF RXES 


IH ;SIDE RDY NOT SET, THEN 
#4, SOAV(R1) - DROP SIDE #1, DRIVE #0 
DROPAV : IF DROP AVAIL SIDE/DRIVE 
EH2252 SET, THEN 

> CALL PRINT SYSTEM IDENT 


#MSG55,R4 :SET MSG=> 
TTOUT >PRINT MSG 
PRTSYS ;CALL PRINT SYSTEM IDENT 
PTSIDF ;CLEAR PRINT SIDE FLAG 
PRTDRV ;CALL PRINT DRIVE/SIDE IDENT 
DROPAV,SOAV(R1) :DROP DRIVE SET => IN <SUC> AVAIL 
#MSG335.R4 ;SET MSG=> *‘DROPPED‘' 

T ;PRINT MSG 

sRETURN 


sDROP AVAIL DRIVES/SIDES CONTROL 


SYSTEM AVAILABLE WORD 


fie Ao bee” ae 


<~- SIDE & DRIVE BIT AVAILABLE 


1 11! 10! 01! 00! 


<-~ SIDE & DRIVE CODE 


, SD! 


SD! SD! SD! 


Sion sOmeve 
ceewe alee 


SEQ 0047 


“DRIVE NOT RDY-IS DISK IN DRIVE & DOOR CLOSED 
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012737 
052737 


000546 
000546 


000544 


000622 


000552 
000622 


000552 
000550 
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MODULE 2. 


3- 12 
2.5.5 = SET TEST BITS IN CSR & ESR 
-SBTTL MODULE 2.2.5.3 = SET TEST BITS IN CSR & ESR 
ae ETUP CSR. (MOD 2.2.5.5 = SET TEST BITS IN CSR & ESR) 


CSR_ COMPARE =DONE 
SETUP CSR_COMPARE=DOUBLE DENSITY BIT 
ST COMMAND 






ITS 
OMPARE=SET ALL READ/WRITE. ‘BITS 
SETUP CSR_MASK=DON'T CARE BITS 

CLEAR ALL BUT SIDE BIT FROM <SUC> LAST COMMAND 

SETUP ESR_COMPARE=SIDE BIT AS SET FROM <SUC> LAST CMD 


: IF <suC> CAST COMMAND=DRIVE#1 SELECTED [AJ 
: “oir ETP ESR_COMAPRE=DRIVEA1 
. <suC> LAST COMMAND=DOUBLE DENSITY BIT SET (B) 


: aes SETUP ESR_COMPARE=DRIVE DOUBLE DENSITY BIT SET 
SETUP ESR_ MASK=DON'T CARE BITS 








:ENDROUT 
STSTBT: MOV >SET DONE BIT CK=CSR MODULE 
IS :SET DOUBLE DENSITY BIT CK-CSR COMPARE 
MOV :SET <SUC> COMMAND 
BIC :SAVE ALL R/W BITS 
BIS ;SET R/W BITS FOR-CSR COMPARE 
MOV :SET-CSR DON'T CARE BIT MASK 
MOV :GET <SUC> C 
BIC sCLEAR ALL BIT SIDE 





BIT 
MOV R3,ESRCMP [SET SIDE BIT (IF SELECTED)-ESR COMAPRE 
1A2253: BIT #DRV1,SOCMD(R1) :IF DRIVE #1 
BEQ 182253 :SELECTED IN COMMAND, THEN 
BIS WDRIVE1.ESRCMP :SET DRIVE #1 BIT-ESR COMPARE 
1B2253: BIT #DENBIT ;SOCMD(R1): IF DOUBLE DENS 

















Q :SELECTED IN COND. THEN 
BIS WORVDEN,ESRCMP :SET DRIVE DENSITY BIT-ESR COMPARE 
EB2253: MOV #170000. ESRMSK :SET ESR DON'T CARE BIT MASK 
X2253: RETURN RETURN 


SEQ 0048 


om 
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~SBTTL MODULE 2.2.5.4 =~ LOOPING MODULE 








LOOP : NOP 
000516 TST DBGF LG “IF wm * FLAG 
BEQ X2254 iSET. 
101000 172060 BIT #101000,aSWR IF HALT oN ERR OR LOOP ON ERR 
BEQ X2254 SET, THEN 
000602 CLR HDRFLG “CLEAR HEADER FLAG 
017417 000600 MOV #MSGLP , TASGAD SET MODULE MESSAGE 
000622 000542 MOV SOCMD(R1), CMD :GET <SUC> COMMAND 
7536 006446 013737 000542 000540 LOOP1: MOV CMD , WDOT PASS COMMAND TO OUTPUT MODULE 
7537 006454 004737 010404 CALL CSRCHK “CALL CSR CHECK 
7538 006460 005700 TST RO ; IF RXCS ERROR 
7539 006462 001416 BEQ LOOP2 SET , THEN 
7540 006464 004737 012262 JSR PC ,.BSINIT ;CHECK SWR FOR BUS INITIALIZE 
(1) 006470 032777 001000 172006 BIT #Su09, aSWR : CHECK FOR LOOP ON ERROR 
(1) 006476 001363 BNE ;GO TO LOOP ERROR 
(1) 006500 004737 012240 JSR BCE SRASET 
(2) 006504 000007 .WORD #7. ;FATAL ERR # 7 = LOOPING MOD-CSR ERR 
(1) 006506 005777 171772 TST aSWR ;CHECK FOR HALT ON ERROR 
(1) 006512 100001 BPL 1$ *HALT IF SET 
(1) 006514 000000 HALT : <LOOPING MOD-CSR ERR> 
(1) 006516 000240 1$: NOP 
7541 006520 004737 010624 LOOP2: CALL ESRCHK ;CALL ESR CHECK 
7542 006524 005700 TST RO 7 IF RXES ERROR 
7543 006526 001416 BEQ LOOPS :SET. THEN 
7544 006530 004737 012262 JSR PC ,BSINIT ;CHECK SWR FOR BUS INITIALIZE 
(1) 006534 032777 001000 171742 BIT #SWO9 , aSWR ; CHECK FOR LOOP ON ERROR 
(1) 006542 001341 BNE LOOP 1 :GO TO LOOP ERROR 
(1) 006544 004737 012240 JSR PC .ERRSET 
(2) 006550 000010 -WORD #10 7FATAL ERR # 10 - LOOPING MOD-ESR ERR 
(1) 006552 005777 171726 TST @SwWR ;CHECK FOR HALT ON ERROR 
<1) 006556 100001 BPL 1$ sHALT IF SET 
(1) 006560 000000 HAL T ;<LOOPING MOD-ESR ERR> 
(1) 006562 000240 1$ NOP 
7545 006564 000240 3 ; 
7546 006566 000207 X2254: RETURN ;RETURN 
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Lenk .SBTTL MODULE 2.3 - SYSTEM STATUS 
7551 ;BEGINROUTINE (MOD 2.3 = SYSTEM STATUS) 
7552 : I a _AVAIL=0 & SYSTEM#O=SELECTED [A] 
7553 : oo: THEN 
7554 : SET <SUC>=0 
7555 : CALL DROP SYSTEM (MOD 2.3.2) 
7556 ; ENDIF 
7557 ; IF SYSTEM#1_AVAIL=0 & SYSTEM#1=SELECTED (BI 
7558 ; oo: THEN 
7559 >. A SET <SUC>=1 
less ; ; ~ DROP SYSTEM (MOD 2.3.2) 
es! je A & SYSTEM#1=NOT SELECTED (CJ 
7564 : SET ik ds FLAG 
vee ; © lee "NO SYSTEM AVAILABLE TO FORMATER’' 
7567 : IF SYSTEM#1=SELECTED (DJ 
7568 : : THEN 
7569 : IF SYSTEM#1_DONE=1 CEJ 
7570 : : THEN 
7571 5 IF SYSTEM#O SELECTED (FJ 
7572 e-. <3 : : : THEN 
7573 “Sue : : : IF SYSTEM#0_DONE=1 (GJ 
7574 - oe : : : : THEN 
7575 - SET SYSTEM FLAG 
7576 : CALL PRINT SYSTEM STATUS (MOD 2.3.1) 
7577 a : : : : CLEAR SYSTEM#O & SYSTEM#1 DONE 
7578 oe : : : : SETUP FORMATTER MSG 
7579 ae : : : : ELSE 
7580 : : CALL SYSTEM TIMEOUT CHECK (MOD 2.3.3) 
7581 is ENDIF 
7582 : SE 
7583 ‘ SET SYSTEM FLAG 
7584 : CALL PRINT SYSTEM STATUS (MOD 2.3.1) 
7585 : CLEAR SYSTEM#1 DONE 
7586 “ SETUP FORMATTER MSG 
7587 : 
7588 5 LSE 
7589 : : CALL SYSTEM TIMEOUT CHECK (MOD 2.3.3) 
7590 ENDIF 
7591 A ale : fie 
7592 ; 4 : IF SYSTEM#O_DONE=1 CH) 
7593 — : : THEN 
7594 oe : : SET SYSTEM FLAG 
7595 as eg : : CALL PRINT SYSTEM STATUS (MOD 2.3.1) 
7596 ies : : CLEAR SYSTEM#0_DONE 
7597 ee : : SETUP FORMATTER MSG 
7598 ae : : ELSE 
7599 . = : : CALL SYSTEM TIMEOUT CHECK (MOD 2.35.3) 
7600 #2 : ENDIF 
7601 ge ENDIF 
7602 : 


; ENDIF 
7603 ; ENDROUT INE 


an 
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014246 
007342 
000574 
007062 
000630 
014246 
007342 


0006 
014246 
007342 


171676 


171650 
000610 
171626 


000572 
171602 


171564 


000572 


000572 


000572 


utente 3% 
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ULE 2.3 = SYSTEM STATUS 


SYSTAT: NOP 
IA23: 


IB23: 


Ic23: 


ID23: 
IE23: 
IF 23: 
IG23: 


i IF SYSTEM#O AVAIL 
S ZERO AND 


: SELECTED, THEN 
“SET <SUC>=0 

;CALL SYSTEM DROP 
‘IF te nt AVAIL 


O AND 
 SYSTEM#T 
sSELECTED THEN 
;SET <SUC>=1 
sCALL SYSTEM DROP (MOD 2.3.2) 
sIF SYS#O & SYSA1 
:NOT syiisa’e OR DESELECTED, THEN 
sSET SYSTEM FLA 


(MOD 2.3.2) 


G 
sSET SYSTEM ,MSG ‘NO SYSTEMS TO FORMAT’’ 
:BR TO END 'C' 
sIF SYSTEM#1 





;SET, THEN 
sSET SYSTEM FLA 
AL 


LAG 
>CALL PRINT SYSTEM STATUS (MOD 2.5.1) 
sCLEAR SYSTEM#O DONE 
sCLEAR SYSTEMA1 


DONE 
SET SYSTEM ,MSG “FORMAT COMPLE TED** 








:BR TO 
+ CALL SYSTEM TIMEOUT CHECK (MOD 2.35.3) 
O END ‘C’ 
SET SYSTEM FLAG 
(MOD 2.5.1) 


>CALL PRINT SYSTEM STATUS 
Mr DONE 


:CLEAR SYSTEMA 
:SET SYSTEM MSG ‘FORMAT COMPLETED"’ 











BR TO 

> CALL SvSTEM TIMEOUT CHECK (MOD 2.3.3) 
:BR TO END 'C' 

:1F SYSTEM#O DONE 

:SET, THEN 

sSET SYSTEM FLAG 

:CALL_ PRINT SYSTEM STATUS (MOD 2.3.1) 


sCLEAR SYSTEM#O DONE 
:SET SYSTEM MSG "FORMAT COMPLETED" 


:BR TOE 
¢ CALL SYSTEM TIMEOUT CHECK (MOD 2.3.3) 


SEQ 0051 
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‘ 


rg a, -SBTTL MODULE 2.3.1 = PRINT SYSTEM STATUS 

7662 :BEGINROUTINE (MOD 2.3.1 = PRINT SYSTEM STATUS) 

7663 ; SET <SUC>=0 

7664 ‘ EGINDO 

7665 ; INITIALIZE DRIVE _PTR=1, DRIVE_CTR=0 [A] 
rts : IF <t> DONE=SET (B) 
7668 ‘ PRINT ‘'SYSTEM: <SUC> FORMAT DONE ON FOLLOWING:'’ 

7669 : BEGINDO (cI 
7670 : IF <SUC> AVAIL=BIT SET AT SYSTEM AVAIL PTR (DJ 
7671 : THEN 

7672 : IF <SUC> AVAIL=EITHER SIDE AVAIL CEJ 
7673 eS ae cs : THEN 

7674 2 2 : SET SIDE FLAG 

7675 a ae : : ELSE 

7676 : CLEAR SIDE FLAG 

7677 : IF 

7678 : SET DRIVE Fy 

7679 ; SET SIDE # 

7680 2 ~~ PRINT DRIVES IDENT 

7681 : ENDIF 

7682 ; INCREMENT DRIVE COUNTER 

7683 ; SHIFT LEFT DRIVE POINTER 

7684 - DO UNTIL DRIVE_COUNTER=1 

7685 ‘ NDDO | 

7686 ; I 

7687 ; INCREMENT <SUC> ' 

7688 : DO UNTIL <SUC>=2 

7689 ; ENDDO 

7690 ; ENDROUT INE 
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014452 
013232 
000610 


000001 
007260 
010126 
000626 
011132 
007262 
000014 
011230 


011230 
007260 


007262 


000612 
000612 


011224 
011224 
011226 


011226 


007260 


000610 
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ULE 2.3.1 = PRINT SYSTEM STATUS 


PTSYST: 


BA231: 
1B231: 
BC231: 


ID231: 
IE251: 


LE231: 
EE231: 


DRVCNT : 
DRVPTR: 


0 
0 


4MSG14 ,R4 :SET MSG=-> ‘FORMAT DONE ON FCLLOWING'' 
TTOUT sPRINT MSG 


SUC ;SET <SUC>=0 


#1,DRVPTR ; INITIALIZE DRIVE POINTER=1 
DRVCNT INITIALIZE DRIVE COUNTER=0 
SSUCOF “CALL SET <SUC> OFFSET 

SODN(R1) IF ms DONE 

EB231 “SET, THEN 

PRTSYS ; CALL PRINT SYSTEM IDENT 

DRVPTR, SOAV(R1) “IF DRIVE POINTER=<SUC> AVAIL BIT 
#14, SOAV(R1) ‘IF EITHER SIDE IN <SUC> AVAIL 
LE231 THEN 

PTSIDF “SET PRINT SIDE FLAG 


EE231 :BR TO END ' 

PTSIDF sCLEAR PRINT SIDE FLAG 
DRVCNT ,DRIVE :GET DRIVE COUN 

#2,DRIVE >CLEAR SIDE BIT (DRIVE=DRIVE4) PRINT 
DRVCNT , SIDE :GET DRIVE COUNT 


SIDE ;SHIFT IT RIGHT TO SHOW SIDE BIT 
#177776, SIDE -CLEAR ANY JUNK BITS 
PRTDRV :CALL PRINT DRIVE IDENT 
DRVCNT : INCREMENT DRIVE COUNTER 
DRVPTR SHIFT LEFT DRIVE POINTER 
#4 .DRVCNT ;DO UNTIL DRIVE COUNT 
BC231 SEQUALS 4 

SUC : INCREMENT <SUC> TO NEXT SYSTEM 
#2, SUC :DO UNTIL <SUC> 

231 ZEQUALS 2 
sRETURN 


sDRIVE COUNTER 
:DRIVE POINTER 


SEQ 0053 
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2 


00000 
016475 
015232 


171164 
171154 
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E 2.3.2 - SYSTEM DROP 


-SBTTL MODULE 2.3.2 - SYSTEM DROP 
sBEGINROUTINE (MOD 2.5.2 SYSTEM DROP) 


; SETUP & PRINT MSG ‘'SYSTEM 
. SETUP & — SYSTEMA 


: IF SUC 


THEN 
 wemmeead SYSTEMA#O 
DESELECT SYSTEM#1 


ENDIF 
SETUP & PRINT MSG ‘NO DRIVES AVAIL - DROPPED’ 


® ENDROUT INE 
SYSDRP: MOV 
CALL 
MOV 
CALL 
IA232: TST 
BNE 
BIC 
BR 
LA232: BIC 
EA232: MOV 
CALL 
X232: RETURN 


; SETUP MSG "SYSTEM:'* 
:PRINT IT 


2-4 SYSTE A 
PRINT IT! 
:1F SYSTEM UNDER CONTROL 
71S ZERO, THEN 
:DESELE CT Pie ZERO 
ENDIF 


“BR TO 

sELSE DESELECT. SYSTEM ONE 

: SETUP MSG ‘DROPPED FROM FORMATTER’' 
:PRINT IT! 

;RETURN 


SEQ 0054 


3 
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7759 .SBTTL MODULE 2.3.3 = SYSTEM TIMEOUT CHECK 

7761 :BEGINROUTINE (MOD 2.3.3 = SYSTEM TIMEOUT CHECK) 

7762 : IF SYSTEM_ERROR NOT=0 [A] 

7763 ; 3: THEN 

7764 4 IF SYSTEM ERROR=SYS#O TIME OUT ERROR (BI 

7765 oe. : THEN 

7766 . ey : SET <SUC>=0 

7767 _ : CALL SYSTEM IDENT 

7768 4 : SETUP & PRINT TIME OUT ERROR 

7769 35 : CLEAR SYS #0 AVAILABLE WORD 

7770 > : ENDIF 

7771 —_ IF SYSTEM ERROR=SYS#1 TIMEOUT ERROR (cJ 

7772 = Nig : THEN 

7773 eS : SET <SUC>=1 

7774 ae : CALL SYSTEM IDENT 

7775 ‘ee : SETUP & PRINT TIMEOUT ERROR 

7776 ~ : CLEAR SYS#1 AVAILABLE WORD 

7777 2 ae ENDIF 

7778 ; ENDIF 

7779 = ENDROUTINE 

7780 9S a ae 
7781 

7782 007342 000240 SYTMCK: NOP 

7783 007344 005737 000606 1A233: TST SYSERR IF SYSTEM ERROR 

7784 007350 001446 BEQ EA233 T = 0, TH 

7785 007352 032737 000010 000606 18233: BIT #10,SYSERR :IF SYSTEM ERROR 

778 007360 001417 BEQ 1€233 : EQUALS SYS#O TIME OUT ERR 

7787 007362 005037 000610 CLR SUC “SET <SUC> 

7788 007366 004737 011132 CALL PRTSYS “CALL PRINT SYSTEM IDENT 

7789 007372 012704 014272 MOV #SG10.R4 :SET MSG-> "INTERRUPT DID NOT OCCUR’’ 
(1) 007376 004737 013232 CALL‘ TTOUT -PRINT MSG 

7790 007402 012704 015702 MOV 4MSG41.R4 *SET MSG-> "TIME OUT ERROR’’ 
(1) 007406 004737 013232 CALL —‘* TTOUT -PRINT MSG 

7791 007412 005037 000612 CLR SOAV ;CLEAR SYS#O AVIALABLE 

7792 007416 000423 : BR EA233 -BR TO 

7793 007420 032737 000020 000606 iC233: BIT #20,SYSERR -1F SYSTEM ERROR 

7794 007426 001417 BEOQ EA233 ‘EQUALS SYS#1 TIME OUT ERR . THEN 
7795 007430 012737 000001 000610 MOV #1, SUC “SET <SUC> = 1 

7796 007436 004737 011132 CALL _— PRTSYS :CALL PRINT SYSTEM IDENT 

7797 007442 012704 014272 MOV #4SG10.R4 :SET MSG-> "INTERRUPT DID NOT OCCUR'’ 
(1) 007446 004737 013232 CALL‘ TTOUT =PRINT MSG 

7798 007452 012704 015702 MOV #4SG641.R4 “SET MSG=-> 'TIME OUT ERROR'’ 
(1) 007456 004737 013232 CALL —‘* TTOUT *PRINT MSG 

7799 007462 005037 000614 CLR S1AV “CLEAR SYS#1 AVIALABLE 

7800 007466 005037 000606 EA233: CLR SYSERR “CLEAR SYSTEM ERROR 

7801 007472 000207 RETURN “RETURN 
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wal >t 


5 
10:48 PAGE 68-20 
E 2.4 = WATCH DOG SYSTEM#0 


SEQ 0056 


a MODULE 2.4 = WATCH DOG SYSTEMA#O 


1$: 


WAT INO ;1F WATCH DOG INITO 
;NOT = 0, THEN 
WAT INO :CLEAR WATCHDOG INIT #0 FLAG 
WCNTRO ;CLEAR WATCH DOG COUNTER #0 
TO :CLEAR WATCH DOG MULTIPLIER #0 


WCNTRO : INCREMENT WATCH DOG COUNTER 40 
WCONTRO,WCNTMX ;IF COUNTER 

XWATO :1S_ = TO COUNT MAX 

WCNTRO :CLEAR WATCH DOG COUNTER #0 

WML TO : INCREMENT WATCH DOG MULTIPIER #0 
WML TO, SOWML T ZF MUL T IPLIER 

XWATO 71S = TO MULTIPLIER 


MAX 
"CLEAR WATCH DOG ae we #0 
: SET SYSTEM ERR = TIME OUT 





WML TO 
#10,SYSERR 





sWATCH DOG COUNTER #0 
WATCH DOG MULTIPLIER #0 


-SBTTL MODULE 2.5 - WATCH DOG SYSTEM#1 


WATCH1: 


1$: 


TST 
BEQ 






WATINI ;1F WATCH oI INIT1 

1$ :NOT = 1, T 

WATINI = CLEAR WATCH DOG INIT #1 FLAG 
WCNTR1 OUNTER #1 

WML T1 

WCNTR1 REMENT WATCH DOG COUNTER #1 
WONTR1 ,WCNTMX TER 

XWAT1 :IS_= TO COUNT MAX 

WCNTRI ;CLEAR WATCH DOG CGUNTER #1 








WML T1 : INCREMENT WATCH DOG MULTIPIER #1 
WMLT1,S1WMLT IF MULTIPLIER 

XWAT1 71S = TO MULTIPLIER MAX 

7CLEAR WATCH DOG MULTIPLIER #1 
:SET SysTEn ERR = TIME OUT 








WMLT1 
#20,SYSERR 





sWATCH DOG COUNTER #1 
:WATCH DOG MULTIPLIER #1 


sWATCH DOG INITIALIZE FLAG 40 
sWATCH DOG INITIALIZE FLAG #1 
sWATCH DOGS MAX COUNT LIMIT 


CZRXEAQ RXO2 FMTR PROG MACY11 30(1046) 
20-SEP-78 10:48 


CZRXEA.P11 


10: 


016705 
013232 
012624 
000131 


000002 


017117 
013232 
000100 


000100 
170262 


000530 


000526 
000574 


000574 
170266 
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OUTPUT SYSTEM DONE 


SEQ 0057 


.-SBTTL MODULE 3.0 = OUTPUT SYSTEM DONE 


;BEGINROUTINE (MOD 3.0 = OUTPUT SYSTEM DONE) 
; SETUP & PRINT 'DO YOU WANT TO FORMAT MORE DISKETTES?"’ 
CALL GET ANSWER 


IF ANSWER=YES 
: SETUP & PRINT ‘REMOVE FORMATTED DISKETTS & INSERT DISKETTS TO BE FORMATTED" 


ENDDO 


[AJ 


SETUP & PRINT ‘'==>TYPE ''CR'' WHEN READY’ 


GNDO 
GET OPERATOR lneteRT CALL TTY INPUT 


DO UNTIL TTY CTR= 


(BJ 


ELSE 
SETUP & PRINT ‘FORMATTER DONE=RESTART MONITOR, UPDATE PROGRAM-->TYPE CTRL-C TO S 


SET SYSTEM FLAG=IDLE 


Lapp ENABLE TTY INTERRUPTS & SET TTY GO BIT 
= ENDROUT INE 


OTSYDN: 


IA30: 


BB30: 


LA30: 


#MSG56,R4 
TTOUT 

GE TANS 
#°Y ANSWER 
LA30 
#MSG57,R4 
TTOUT 
AMSG58B,RS 
TTOUT 
TTIN 
#15,TIB 
BB 30 
#2.SYSFLG 
x30 
WMSG59 RG 
TTOUT 


#100,SYSFLG 
#6! qrins 


;SET MSG-> DO YOU WANT TO FORMAT MORE DISKETTES? 
;PRINT MSG 

;CALL GET OPERATOR ANSWER 

;IF ANSWER 


ce 
:IS YES, 


THEN 
“DRiMt Mae REMOVE FORMATTED DISKETTES & INSERT DISKETTES 
cout ye TYPE *'CR'’ WHEN READY 
:PRINT MSG 


>CALL TTY INPUT 
:D0 UNTIL 


; CHARACTER=" ‘CR’ 
;SET SYSTEM FLAG: =RESTART 
:BR TO MODULE EXIT 


A 4 wt tae FORMATTER DONE-RESTART MONITOR, UPDATE PROGRA 
;SET SYSTEM FLAG=IDLE 
>SET TTY KEYBOARD INTERRUPT BIT 


:SET TTY KEYBOARD GO BIT 
;RE TURN 
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ULE U.PRIHI - SET PROCESSOR PRIORITY HIGH 


oe MODULE U.PRIHI = SET PROCESSOR PRIORITY HIGH 


SEQ 0058 





PRIH] MOV #PR7 ,NEWPRI ;SETUP FOR PROCESSOR PRI LEV=7 
CALL SETPRI ;SET PROCESSOR FLAG 
ET : TURN 
-SBTTL MODULE U.PRILO - SET PROCESSOR PRIORITY LOW 
PRILO: MOV #PRO ,NEWPRI ;SETUP FOR PROCESSOR PRI LEV=0 
CALL ] ;SET PROCESSOR PRI 
RET ;RETURN 
.-SBTTL MODULE U.PROPRI = SET PROCESSOR PRI 
SETPRI: TST LSIFLG 3; IF PROCESSOR IS 
BEQ 1$ 3LSI, THEN 
MTPS NEWPR |] :SET PROCESSOR PRI 
BR SETPIX : TO END 
1$: MOV NEWPRI ,aPSwW ;SET PROCESSOR PRI 
SETPIX: RTS PC ;RETURN 
NEWPRI : 0 sNEW PROCESSOR PRIORITY 


-SBTTL MODULE U.SADR = SET SYSTEM BUS ADDRESS 





SSUCAD: CALL SSUCOF sCALL SET <SUC> OFFSET 
MOV REGSO(R1).RXCSAD: SET NEW SYSTEM ADDRESS 
MOV REGSO(R1) ,RXDBAD; SET NEW SYSTEM DB ADDR 
ADD #2,RXDBAD ;BUMP ADDRESS 
RETURN RETURN 
-SBTTL MODULE U.SUCO =- SET SYSTEM UNDER CONTROL OFFSET 
SSUCOF : MOV SUC .R1 ;GET SYSTEM UNDER CONTROL 
ASL RI ;DOUBLE IT! FOR WORD OFFSET ADDRESSING 
RETURN ;RETURN 
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0190222 
010224 
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000007 
013700 


040000 
010226 
010232 


020000 


000054 


000524 


000606 
010402 
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ULE U.DL ~- DELAY FOR ‘’TR’’ OR ‘DONE’ 


. SBTTL 


RTS —- PC ;RETURN TO CALLING MOD 
15 :READY MULTIPLIER 
100000 READY DELAY 
0 :READY WORD - TEST FOR DEVICE READY 
: 0 :C@S REG OF UNIT- WAITING FOR 
--------- END MODULE -----------------~------------~-------------- 


-: MOV RYDLY 


MODULE U.DL = DELAY FOR ‘'TR’' OR 'DONE'' 


MOV RYDX ,R4 ;SET READY DELAY MULT 


oR3 Ai READY DELAY 
: BIT RDYWD,@CSRADR ;IF READY 
BNE XUDL sEQUAL TO ‘"l'’ , THEN BR TO EXIT 
DEC R3 ;ELSE DECREMENT DELAY 
BNE BDBUDL ;DO UNTIL R3=0 
MOV #7,T0B sSeT s BELL 
JSR PC,TOG | :PRINT BELL 
DEC R4 “ DECREMENT DELAY MULT. 
BNE BDAUDL :DO_ UNTIL R4=0 


BIS #40000,SYSERR ;SET TIME OUT ERR 
MOV RDYWD , TOERBT ;SET T.0. WORD 
JSR PC, TOPRT :GO PRINT TIMEOUT ERRORS 


TIME OUT ERROR PRINT 


BIT #B1T13,aSWR : IF INHIBIT ERROR RESULTS 


SEQ 0059 
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TIME OUT ERROR PRINT 


010402 1$: 


2$: 
3$: 


170166 


TOPRT X 
PC, TSHDCK 
ciliata 


SEQ 0060 


:1S NOT SET, THEN 

;CALL TEST HEADER CHECK 
IF READY WORD 7 _ TO 
; TEST DONE BIT, 

SET ae NOT se} "MSG 
;PRINT + 

:GO PRINT MSG 

++ ., BIT NOT SET MSG 


PRINT MS 
SET TIME OUT MSG 
T MSG 


1F ia ERROR REPORTS 
‘SET REG MSG 


“PRINT MSG 

SET TO PRINT RXCS 
sPRINT 

= SET SPACES MSG 
iSET TO PRINT RXES 
:SET SPACES 

‘PRINT 
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000546 
011544 
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013232 
000546 


011314 
177777 


000606 
000554 


011536 


167774 
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XCS ERROR CHECK 


-SBTTL RXCS ERROR CHECK 














CSRCHK: MOV @RXCSAD,R1 ;GET RXCS 
IC CSRMSK ,R1 ;MASK OFF BITS DON'T CARE ABOUT 
CMP CSRCMP ,R1 7 IF RXCS CONTAINS 
BEQ 5$ ;ERRORS, THEN 
1$: MOV R1,BADWRD ;SET BAD WORD 
MOV CSRCMP,.CMPWRD ;SET COMPAR 
MOV #CMSGTB,TABADR SET MSG TABLE ADDRESS 
MOV BITOFF SET # BITS TO OFFSET WORD 
MOV ;SET # BITS TO CHECK 
BIT ;IF INHIBIT ERROR REPORTS 
BNE “NOT SET, N 
CALL ; CALL TEST HEADER CHECK 
2$: MOV ;SET RXCS MSG HEADER 
JSR T MSG 
BIT “IF — ERROR REPORTS 
BEQ 7S PE. 
MOV 7 SET "REG FORMAT MSG 
JSR “PRINT MSG 
MOV 
JSR 
MOV 
JSR 
MOV 
JSR 
MOV 
JSR sPRINT MSG 
MOV ;SET FULL RXCS 
JSR SPRINT FULL RXCS 
3$: JSR sREPORT BAD BITS 
4$: MOV :SET ERR 
BR 7BR TOE 
S$: CLR RO ;CLEAR ERRORS 
BIS SYSERR,RO :SET ANY SYSTEM ERRORS 
CLR SYSERR ;CLEAR SYS ERROR 


CSRCKX: 8: IF ERRORS 


RO. TSTERR 
PC 


SET TEST ERROR FLAG, 
;RETURN 


SEQ 0061 





CZRXEAQ RXO2 FMTR PROG 
CZRXEA.P11 


017701 


MACY11 30(1046) 
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013232 
000552 


011314 
177777 


000606 
000606 
000554 


167556 


neve tonne 
XES ERROR CHECK 


~SBTTL RXES ERROR CHECK 


1$: 


2$: 


3$: 
4$: 


5$: 


ESRCKX: 


5 
10:48 PAGE 65-2 


R1 ,BADWRD 
ESRCMP,, CMPWRD 
WEMSGTB. TABADR 


BITOFF 
#12. .BITLIM 
#SW13.aSWR 


SYSERR RO 
SYS 





SEQ 0062 


;GET RXES 

;MASK OFF BITS DON'T CARE ABOUT 
;1F RXES CONTAINS 

; ERRORS 
»SET 


; CHECK 
:IF INHIBIT oo REPORTS 


:NOT SET, 
;CALL TEST HEADER CHECK 
: SET rice HEADER 


TIF EXTENDED ERROR REPORTS 


;PRINT MSG 

:SET FULL RXCS 

sPRINT FULL RXCS 

REPORT BAD BITS 
ET ERR 





BR TO END 

;CLEAR ERRORS 

;SET ANY SYSTEM ERRORS 
; CLEAR SYSTEM ERRORS 


:SET TEST ERROR FLAG, IF ERRORS 
E TURN 





5 
Se ry RXO2 FMTR PROG MACY11 30(1046) ofits case 10:48 PAGE 65-3 


RXEA.P11 20-SEP-78 10:48 ST HEADER CHECK & PRINT SEQ 0063 
8080 .SBTTL TEST HEADER CHECK & PRINT 
8081 2 Raeenaeeeeeneseesaees: eceseesoasscesesecesceseccesccescccccesceccocece~ 
8083 011042 005737 000602 TSHDCK: TST —_-HDRFLG ;1F HEADER FLAG 
8084 011046 001030 BNE ENDTSH ;NOT SET, THEN 
8085 011050 005237 000602 INC —-HDRFLG :SET TEST HEADER FLAG 
8086 011054 013704 000600 MOV TMSGAD ,R4 :SET TEST MSG # 
8087 011060 004737 013232 JSR —s- PC, TTOUT :PRINT TEST MSG 
8088 011964 004737 010126 CALL  SSUCOF :CALL SET <SUC> OFFSET 
8089 011070 004737 011132 CALL = PRTSYS :CALL PRINT SYSTEM IDENTIFICATION 
8090 011074 032761 000020 000622 BIT | #DRV1,SOCMD(R1) IF DRIVE #1 
8091 011102 001404 BEQ 1$ ;SELECTED, THEN 
8092 011104 012737 000001 011224 MOV = #1, DRIVE :SET DRIVE=#1 
8093 011112 000402 BR 2$ 7BR TO 2$ 
8094 011114 005037 011224 1$: CLR —s DRIVE :SET DRIVE=40 
8095 011120 005037 011230 2$: CLR —s PTSIDF :CLEAR PRINT SIDE FLAG 
8096 011124 004737 011154 CALL = PRTDRV :CALL PRINT DRIVE 

011130 000207 ENDTSH: RTS. _—- PC : RETURN 





CZRXEAO RXO2 FMTR PROG 
CZRXEA.P11 


© 


— - — 3) —4 


WI WAN 


ooo°oo 
os 


ooo°co 
dd ed ed ed od ad ad od 


oo°oe°o 
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016425 
013232 
000610 


013346 


014547 
013232 
011224 
013346 
011230 


014556 
013232 
011226 
013546 


014570 


weet ot 


5 
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ULE U.PRTSYS = PRINT SYSTEM IDENTIFICATION 
pea MODULE U. PRISYS - PRINT SYSTEM IDENTIFICATION 


SORINT SG "“SYSTEM:*’ 
;SET tr FOR PRINT 
:PRINT IT! 


PRTDRV: 


XUPTDV: 


DRIVE : 
SIDE: 


PTSIDF: 


DRIVE ,R3 
Oc 


SET MSG=-> ‘DRIVE: °' 
;PRINT MSG 

sGET DRIVE # 

:PRINT IT! 

:1F SIDE FLAG 


“SET "MSG=> ‘SIDE: *’ 
PRINT MSG 


;DRIVE # TO PRINT 
sSIDE # TO PRINT 
:SIDE PRINT CONTROL FLAG 


Sem eee are Ge ee em > om ee er ee ee en ey om SR are Gy tee or 


#MSG22,R4 
TTOUT 

#MSG15 ,R4 
TTOUT 
SOTRK(R1) ,R3 
OCTP 
#MSG16,R4 
TTOUT 
SOSEC(R1),R3 
OCTF 


:SET MSG~> “CRC ERROR-"’ 
:SET MSG=> ‘TRACK="" 

“PR G 

sGET TRACK # 

: SET MSG-> "“SECTOR="' 


“PRINT IT! 
E TURN 


sSYS#Q TRACK 
;SYS#1 TRACK 
:SYSHO SECTOR 
;SYS#1 SECTOR 


e OB A TROL A, CaS Cn = Ele PMs > 5 a ae ee 


SEQ 0064 


CZRXEAO RXO2 FMTR PROG 
20-SEP-78 


CZRXEA.P11 


011314 


011522 


011524 
011526 
01 


011542 


MACY11 30(1046) 
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011524 
012222 
011536 


115 
011540 


011540 
011534 
011534 


011534 
011526 
000001 
015210 
013232 
011526 
011542 


013232 
011526 
011532 


011526 
011524 


011524 : 
012200 011530 


011530 


011526 


5 
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CHECK BITS SET & NOT SET 


-SBTTL CHECK BITS SET & NOT SET 


CKBI7S: CLR BITPAS ;CLEAR BIT PASS COUNT 
#SETMSG,BITMSG SET, SET BITS MSG ADR 
MOV CMPWRD , RO :GET COMPARE WORD 
MOV BADWRD ,R1 ;GET BAD WORD 
BIC RO,R1 7R1 = BITS THAT SHOULDN'T BE SET 
COM RO ; COMPLIMENT COMPARE WORD 
BIS BADWRD ,RO ;SET BITS 
COM RO ;RO = BITS THAT SHOULD BE SET 
TST BITOFF ;IF BIT OFFSET 
BEQ 2$ ;NOT=0, THEN 
1$ DEC BITOFF ; 
CLC ;CLEAR CARRY 
ROR RO ; 
CLC ;CLEAR CARRY 
ROR R1 ; 
TST BITOFF sIF BIT OFFSET 
BNE 1$ “EQUALS 0, THEN 
2$: CLR BITCNT ; CLEAR BIT COUNTER 
3$: BIT #1,R1 : 
BEQ 4$ 
MOV #MSG35 ,R4 “SET UP ‘'~"’ MSG 
JSR PC, TTOUT =PRINT MSG 
MOV BITCNT, R4 ;GET BIT COUNT 
AS R4 ;DOUBLE FOR eon ADDRESSING 
ADD T R,R4 ;ADD TABLE ADDRESS 
MOV (R4) ,R4 


;SET MSG TO PRINT 

:PRINT MSG 

:SET SET BITS MSG 
INT MSG 








4$: INC BITCNT : INCREMENT BIT# COUNTER 
CLC sCLEAR CARRY BIT 
ROR R1 SHIFT NEXT BIT FOR TEST 
CMP BITLIM,BITCNT ;IF ALL BITS SPECIFIED 
BHI 3$ 2D THEN 
CLR BITCNT :RESET BIT COUNT 
TST a ; 


BNE ; 
INC BITPAS sSET BITPASS TO GET OUT NEXT PASS 
MOV ANSMSG,BITMSG ;SET NOT SET BITS MSG ADR 
MOV RO,R1 sGET NOT SET BITS FOR TEST 
3$ DO NOT SET BITS 
RETURN 


SEG 0965 


Wee Wa Wee We a a aa aaa aa hl rh CC Cl lh - - “ 





CZRXEAO RXO2 FMTR PROG 
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CZRXEA.P11 


011572 


011574 
011576 
01 


0 
012156 


012200 
012222 


011624 


011770 
011777 


103 
123 


g 
sse8ee3: 


> 
MM 
Nw 


BB 8 
RR VN 
oo Oo 
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053111 


04 
020116 


052111 
052111 


020105 
051105 


054105 


047055 
051455 


20-SEP-78 
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CHECK BITS SET & NOT SET 


CMSGTB: 


12 
CMSG12 
MS 


EMSGTB: 





EMSG11: 


MS 
EMSG10: 





ASCII 
ASCII 
ASCII 


/DRI  , 1#/ 

/DONEA/ 

/INTERRUPT ENABLEA/ 
/TRA/ 

/DENSITY#/ 


/DOUBLE DENSITY ar SYSTEMA/ 
/EX Lye ay MEMORY A 
/ERROR # 


/CRCA/ 

/SIDE RDY#/ 

/INIT DONE#/ 

SAC LOWA/ 

/DENSITY ERRA#/ 
/DISK DENSITYA/ 
/DELETED DATAM/ 
/DRIVE RDY#/ 

/DRIVE 1#/ 

/SIDE 1#/ 

/WORD CNT OVERFLOWA/ 
/NON EXISTENT MEM. A4/ 


NSMSG: 


SETMSG: 


-ASCII 


/ BIT-NOT SET ERR #/ 


ASCII / BIT-SET ERR &#/ 
-EVEN 


SEQ 0066 





. «6 
CZRXEAO RX02 FMTR PROG oth 30( 1046) Rm. EP-78 10:48 _ 69-7 


CZRXEA.P11 20-SEP-78 10:4 OR SET SUBROUTIN SEQ 0067 
8257 -SBTTL ERROR SET SUBROUTINE 
aSee FLL A 
8260 012240 017637 000000 000402 ERRSET: MOV @(SP) ,SFATAL ;MOVE ERRA TO SFATAL MAILBOX 
8261 012246 012737 000001 000400 MOV #1, SMSGTY ;SET MAIL BOX FLAG 
8262 012254 062716 000002 ADD #2, (SP) ;ADJUST STACK RETURN ADDRESS 
8263 012260 ERSETX: RTS PC :RETURN 
8264 eo nnn ne e+ ++ +++ 
8265 
8266 -SBTTL BUS INITIALIZE SUBROUTINE 
8267 a La SO LS TLE NTT TT OOO 
8268 
8269 012262 032777 041000 166214 BSINIT: BIT #41000,aSWR 3; 1F LOOP 
8270 012270 001407 BEQ 1$ :1S SET, THEN 
8271 2272 737 011042 CALL TSHDCK :PRINT TEST HEADER 
8272 012276 032777 010000 166200 BIT #SW12.,aSWR ;I1F BUS INITIALIZE 
8273 012 00141 BEQ 1$ ‘BIT SET, THEN 
8274 012 RESET 5 bY ees BUS 
8275 012310 005737 012402 1$: TST ' PPRT F LOOP MESSAGE 
8276 012314 001026 BNE 5$ “NOT PRINTED, THEN 
8277 012316 032777 001000 166160 2$: BIT #SWO9,aSWR 7 IF LOOP ON 
8278 012324 001405 BEQ 7ERROR, THEN 
8279 012326 012704 014752 MOV 4MSG28 ,R4 ;SET LOOP ON ERROR MSG 
8280 012332 004737 013232 CALL TTOUT ;PRINT MSG 
8281 12336 000407 BR 4$ cs 
8282 012340 005777 166140 3$: TST aSwWR : IF HALT OM ERROR 
8283 012344 100012 BPL $ 31S SET, THEN 
8284 012346 012704 015223 MOV #MSG37 RS :SET HALT ON ERROR MSG 
8285 012352 004737 013232 CALL TTOUT T MSG 
8286 2356 011603 4$: MOV (SP) .R3 “GET RETURN ADR 
8287 012360 062703 000014 ADD #14.R “ADJ. ADDRESS FOR ERR NO. 
82 012364 011303 MOV (R3) ,R3 : ‘ 
8289 2366 737 013346 CALL TP :PRINT ERR # 
8290 012372 012737 000001 012402 S$: 7 #1,LPPRT :SET LOOF MSG PRINTED FLAG 
po3 12400 000207 BSINTX: RTS sRETURN 
8293 012402 000000 LPPRT: O ;LOOP FLAG 


CZRXEAQ RXO2 FMTR PROG MACY 11 30( 1046) 
20-SEP-78 48 


CZRXEA.P11 


012404 
012410 


012412 


012416 


012420 


012472 


005237 
000002 


005237 
000002 


004737 
113737 
022737 
00100 


7 
012704 
004737 


10: 


000616 


000620 


013156 
000520 
000003 


014715 
013232 


001000 
000100 
165606 


000632 


000652: 


165612 


athe turer 
RXO 
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2 INTERRUP® HANDLER #0 


. SBTTL 


RXINTO: 


1$: 


RX02 INTERRUPT HANDLER #0 


; INCREMENT SYS #0 READY 


INC SORDY 
RTI ;RETURN TO CALLER 


; INCREMENT SYS #1 READY 
sRETURN TO CALLER 


CALL TTIN 7CALL TTY INPUT ROUTINE 
MOVB TIB, TTITFG ;SAVE TTY INPUT CHARACTER 
CMP #3, TTITFG :1F TTY INTERRUPT 

BNE 1$ “WAS CTRL C, THEN 

MOV MSG2s . R4 :SET MSG=-> ‘"*C’’ 

CALL TTOU ‘esc MSG 

CLR RO 

JMP START : JUMP TO START OVER 

BIS ABIT6,aTKS “SET TTY INTERRURT BIT 
INC arKs :SET TTY GO BIT 


SEQ 0068 


CZRXEAO RXO2 FMTR PROG 
20-SEP~78 10:4 


CZRXEA.P11 


012570 
012576 
012600 
012606 
012614 
012616 
012622 


012624 


012646 
012650 


132737 


012737 
012737 
004737 
000207 


000000 
000000 


000570 
020000 
000602 


013252 


013346 
012570 


165722 


watt 30(1046) afk thease 10:48 PAGE 68-9° 


ADDRESS TRAP HANDLER 


000001 000420 


000000 000402 
000001 000400 


000002 


000116 012646 
000131 012650 
013036 


.SBTTL BUS ADDRESS TRAP HANDLER 
RAP: INC RPF ;SET BUS TRAP FLAG 
BIT #20000 ,aSWR ;SEE IF SHOULD PRINT ERRORS 
BNE 2 ;1F NOT, BR 
TST HDRFLG ;SEE IF DONE HEADER 
BNE TRAP1 HT ad . 
INC HDRFLG ;ELSE SET HEADER FLAG 
MOV TMSGAD , RG 
JSR PC, TTOUT ;PRINT HEADER 
TRAP 1 MOV HMSG24 ,R4 
JSR PC, TTOUT ;PRINT ERROR 
MOV 1,.R 
JSR PC,OCTP ;PRINT ADDRESS OF TRAP 
TRAP2: JSR PC,APTER 
-WORD ‘55 ;BUS TRAP ERROR 
TST aSwWwR ;SEE IF HALT ON ERROR 
—s TRAPX ;1F NOT, BR 
TRAPX: RT] ;RETURN FROM INTERRUPT 
-SBTTL APT ERROR HANDLER 
APTER: BITB HAPTENV, SENV sIF IN 
BEQ 2$ ;APT MODE, THEN 
MOV a(SP) ,SFATAL sMOVE ERR # TO SFATAL MAILBOX 
MOV #1 SMSGTY 7SET MAIL BOX FLAG 
1$: BR ;APT ERROR LOOP 
2$: ADD #2, (SP) . 
RTS ;RETURN 
-SBTTL MODULE U.OPRANS - SETUP & GET OPERATOR ANSWERS 
GETANS: MOV #'N, ANSDEF :SET DEFAULT ANSWER-" NO'' 
MOV #°Y ,ANSCHG :SET CHANGE ANSWER-"‘YES'' 
CALL TTAR ;GET ANSWER-CALL TTY ANSWER 
RET ;RETURN 
ANSDEF: 0 ;DEFAULT ANSWER BUFFER 
ANSCHG: 0 ; CHANGE ANSWER BUFFER 


s slong iia deggie sai cata einen canals Dette shes ten 


SEQ 0069 


CZRXEAO RxXO2 FMIR PROG 
CZR 20-SEP-78 10:4 


XEA.P11 


8409 
8410 


RRRRRREKE 
@=OODNAWUS Wh 


RF 
RAY 


012652 
012656 


ee 30(1046) 


000562 
013156 
000015 
000562 
012774 
000060 
013020 
000070 


013020 
000562 


177770 
000526 
015020 


013020 


014202 
013232 
000020 


000526 


000526 


000526 


000526 
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MODULE U.OPRANS = SETUP & GET OPERATOR ANSWERS 


~SBTTL TTY ENTRY SUBROUTINE 


:THIS SUBROUTINE IS USED BY THE TEST CONDITION ENTRY ROUTINE TO READ 

; THE RESPONSE ENTERED AT THE TTY AND CHECK THEM FOR LEGALITY AND LIMITS. 
sALL RESPONSE MUST BE TYPED IN OCTAL (0 = 7) AND MUST FALL WITHIN THE 
sLIMITS SET BY THE CALLING ROUTINE. IF AN ENTRY IS ILLEGAL OR OUTSIDE 
;THE LIMITS, A QUESTION MARK (?) IS TYPED AND THE RESPONSE MAY BE RE- 
sENTERED. ENTRIES MAY NOT EXCEED SIX (6) CHARACTERS AND MAY BE TERMIN- 
sATED AT LESS THAN SIX BY TYPING A CARRIAGE RETURN. 


TTR: CLR TEMP) :CLEAR FIRST CHARACTER FLAG 
TTRO: JSR PC TTIN :GO READ CHARACTER 
CMPB—Ssa#'15., TIB :SEE IF CR 
BNE TTR “IF NOT, BR 
TST TEMP1 :SEE IF FIRST CHARACTER 
BEQ TTRS Le 0, BR 
JMP TTR2 :ELSE, GO LOAD VALUE 
TTR1: CMPB  ¥#60.TIB :SEE IF CHAR IS LESS THAN O 
BLOS TRIA ‘IF NOT, 


ee 
JMP TINER sELSE, GO TO ERROR 


TTRIA: CMPB #70,TIB ;SEE IF CHAR IS GREATER THAN 7 
BHI TTR1B IF NOT, BR 
JMP TINER sELSE, GO TO ERROR 
TTR1B: ag TEMP? :SET FIRST CHARACTER FLAG 
ROL RO 
CLC 
ROL RO sSHIFT 3 LEFT 
CLC 
ROL 
BIC #177770,TIB ;STRIP ASCII 
BIS TIB,RO ; CHARACTER 
DEC R1 ;SEE IF DONE 
BNE TTRO : IF NOT, BR 
TTR2: (CMP RO,Re :SEE IF EXCEEDED MAXIMUM LIMIT 
BLOS TTR3 ;IF NOT, 
MP TINER ;ELSE, GO TO ERROR 
TTR3: CMP R3,RO sSEE IF BELOW MINIMUM LIMIT 
BLOS TTR4 :;IF NOT, BR 
JMP TINER sELSE, GO TO ERROR 
TTR4: MOV RO, (R5) ;LOAD VALUE 
TTR5: RTS PC sEXIT 
-SBTTL TTY ENTRY ERROR SUBROUTINE 
TINER: MOV AMSG7 ,R4 
JSR PC, TTOUT ;PRINT? 
SUB #20, (SP) sRESET SP TO START OF VALUE ROUTINE 
RTS PC ;REDO VALUE ENTRY 


SEQ 0070 


CZRXEAO F:XO02 FMTR PROG 
CZRXEA.P’ 1 


013146 
013154 


013156 


013230 


20-SEP-78 


105037 


MACY171 30(1046) 


10:48 


000530 


013156 
000032 


000576 
000015 
012646 


000040 
012650 
012646 


014202 
013232 


000526 


165116 
000526 
165106 
165102 


165076 
165072 


000526 
000200 


000526 


000526 
000530 


000526 
000526 


000526 


000530 


000526 


165064 
000526 
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TTY ENTRY ERROR SUBROUTINE 


~SBTTL TTY ANSWER ENTRY SUBROUTINE 

; THIS SUBROUTINE IS USED BY THE TEST CONDITION ENTRY ROUTINE TO 

READ THE RESPONSE ENTERED AT THE TTY AND CHECK THEM FOR LEGALITY. 

sALL RESPONSES MUST BE EQUAL TO RETURN THE DEFAULT ANSWER, CHANGED ANSWER 
sOR_ A CARRIAGE RETURN, IF ENTRY IS ILLEGAL A QUESTION MARK IS TYPED AND 

; THE RESPONSE MAY BE REENTERED. 


TTAR: CLRB ANSWER :CLEAR ANSWER 
CALL —=—«*‘TTIN *GO READ A CHARACTER 
CMPBSssa#'32, TIB le 
BNE TTAR1 : THEN 
INC STFLG “SET START PROGRAM 
BR XTTAR ;BR TO END 
TTAR1: CMPB  #15,TIB “IF CR’ 
BNE TTAR2 : THEN 
MOVB § ANSDEF ANSWER SET DEFAULT ANSWER 
BR XTTAR *BR TO END 
TTAR2: BIC #40,TIB :CLEAR LOWER CASE BIT 
CMPB —s ANSCHG,, TIB : IF ANSWER NOT OK WITH CHANGE ANS 
BEQ TTAR3 > THEN 
CMPB —s ANSDEF .TIB :1F ASNWER NOT OK WITH DEFAULT ANS 
BEQ TTARS : THEN 
MOV #MSG7_.R4 :SETUP MSG ‘2’ 
CALL‘ TTOUT “PRINT MSG 
BR TTAR -START OVER 
TTAR3: MOVB  TIB.ANSWER = SAVE ANSWER 
XTTAR: RETURN :RETURN 
.SBITL TTY READ SUBROUTINE 
TTIN: CLR alks 
LR TIB 
NC aqTks 
TTIN]: TSTB  alkS 
L TTIN1 
V aTkB8,T18 
TTIN2: TSTB TPS 
L TTIN2 
TIB, alPB 
BIC #200,18 :STRIP OFF TOP BIT OF BYTE 


SEQ 0071 


CZRXEAO RXO2 FMTR PROG 
CZRXEA.P11 


013332 


112437 
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000524 
000043 


000045 
013700 


000015 
013700 
000001 


000524 
013700 


000012 
013700 


000524 
000524 


000524 


000524 


20-SEP-78 
TT 


. SBTTL 


TCRLF: 


TCRLFA: 


H 6 
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Y ASCII OUTPUT SUBROUTINE 


TTY ASCII OUTPUT SNOUT ING 


443,108 


IF TOR= ‘'y' 
IF TOR= ‘a 
SET TOB= *'C 


;DO FILLERS 
SET TOB= ‘LF’ 


SEQ 0072 


CZRXEAOQ RXO2 FMTR PROG 
CZRXEA.P11 


013524 


20-SEP-78 


012737 
010304 


vy wot 30( 1046) 
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000901 
013570 


013550 
015512 
100000 


000001 
013526 
013416 


013526 


013526 


013526 


013526 


013570 


000524 OCTP3: 


oftae cairt 


CTAL OUTPUT SUBROUTINE 


1: 6 
10:48 PAGE 69-13 
SEQ 0073 


~SBTTL OCTAL OUTPUT SUBROUTINE 


OCTPE: 


OCTP: 


OCTPE1: 


OCTFO: 


OCTP1: 


OCTP2: 


#1,0FL 
RS 
OCTPO 
OFL ;CLEAR FLAG FOR LEADING ZERO 
R3,R4 ;SEE IF NUMBER IS ZERO 
CTPO ;IF NOT ZERO, BR 
PC,OCTPG1 “ELSE PRINT ZERO 
OCcTP3 : SPACE AND EXIT 
#100000 ,R4 :SEE IF MSG=1 
OCTP1 . NOT, 
#1,R4 
PC,OCTPG ;PRINT 1 
TP2 
PC ,OCTPG :PRINT O 
R3,R4 
RS 
R4 
R4 
om :POSITION DIGIT 
PC .OCTPG :PRINT DIGIT 2 
RS 
PC,OCTPG :PRINT DIGIT 3 
R3_R4 
RS 
RS 
R4 : 
PC ,OCTPG SPRINT DIGIT 4 
R35,R4 
R4 
R4 
R4 
PC .OCTPG sPRINT DIGIT 5 
tas ;SET FLAG TO PRINT LSD 
PC,OCTPG :PRINT DIGIT 6 
#240,T0OB :PRINT SPACE 
PC,TOG sEXIT 
C SEXIT 


is 
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CZRXEAQ RXO2 FMTR PROG MACY11 30(1046) 2 
CZRXEA.P11 20-SEP-78 10:48 OCTAL OUTPUT SUBROUTINE SEQ 0074 
8546 gate ae 
8547 013526 042704 177770 OCTPG: BIC #177770,R4 
8548 013532 001004 BNE OCTPGO 
8549 013534 005737 013570 TST F 
8550 013540 001001 BNE OCTPGO 
8551 013542 000207 RTS 
8552 013544 005237 013570 OCTPGO: INC OF L 
8553 013550 052704 000260 ‘OCTPG1: BIS #260 ,R4 
8554 013554 010437 000524 MOV R4,T08 
8555 013560 004737 013700 JSR PC, TOG 
8556 013564 010304 V R3,R4 
Sen 013566 000207 OCTPGX: RTS C 
8559 013570 000000 OFL: 0 sFIRST CHAR FLAG 





CZRXEAO RXO02 FMTR PROG 
CZRXEA.P11 


013572 
013576 


015740 
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DATA CHARACTER OUTPUT SUBROUTINE 


~SBTTL DATA CHARACTER OUTPUT SUBROUTINE 


10:48 


000566 
013572 
000566 
013572 


000040 
164370 


000524 
000532 


164 346 


000524 
164454 
164444 


000421 


164362 


CLR TOR 
MOV #10,R4 :SET NUMBER TO PRINT 
MOVB 3,708 

TSTB ~—s_ aTPS 

BPL OUT1 

BITB #200.TOB 

BEQ 12 

MOV #061,aTPB 

BR T3 

MOV #060,aTPB 

ROL TOB 

DEC R4 

BNE DOUT1 

RTS PC 

MOV TEMP3,R3 

SWAB 3 

JSR PC ,DOUT 

MOV TEMP3,R3 

JSR PC ,DOUT 

RTS 

TTY OUTPUT 

BITB #APTCSP.SENVM :SEE IF CONSOLE SUPPRESS MODE 
TSTB = aTPS 

BPL TOG 

MOVB = TOB. aTPB 

TST TTWAIT :IS TTY WAIT FLAG SET 
BEQ TEX : THEN 

TSTB ~—— aT PS “WAIT FOR CHARTER 
BPL 1$ >TO BE PRINTED 

RTS PC 


SEQ 0075 


CZRXEAO RxO2 FMTR PROG 


CZRX 20-SEP-78 
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013742 
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037055 


054122 





020105 
037520 


40 
051440 
052123 
047504 
051104 


20-SEP-78 


MESSAGE TABLE 
-SBTTL MESSAGE TABLE 


ao a 6 oO 2 a 9 o © 7 Q 
>> PP P>>>>>>> 
iM MNNNnNnNnUnNNNNnw 
ANOOIAIOOOOOOOAaINY 
bt Dat at et at bat bat ag ns en tt 
bat Dat at Bd Fit at at Bs at ts et ft 


ASCII 


L 6 
10:48 PAGE 69-16 
SEQ 0076 


/% ~~ RXCS RXDB CMDZ = #/ 
/ZSOFTWARE SWITCH REG (OCT) = &#/ 
/EZCZRXEAO RXO2 FMTR PROGZA/ 

/% RxCS “VECTOR (OCT) = &/ 


/% OR (OCT) = #/ 

/XEND OF PASS # 

‘tO “SYSTEM AVAILABLE TO FORMAT #/ 
OMPLETED #/ 


Z RCVD ACTUALZ &/ 
/ZZFORMAT DONE ON FOLLOWING 4/ 
/ TRACK (OCT) =4/ 
/ SECTOR (OCT) =4/ 
/DRIVE :4#/ 
SIDE: 4/ 
,- 


4% CRC ERROR => #/ 
/% THIS SYSTEM NOT CAPABLE OF DOUBLE DENSITY OPERATIONS! 4/ 
/ZBUS TRAP: #/ 


/2°C #/ 

/% RXCS ERR #/ 
/% RXES ERR #/ 
/ ~LOOPING ON ERR: 
/ZERROR BIT SET AFTER. INIT #/ 
/% DONE BIT NOT SET #/ 

y- TR BIT NOT SET ~ 


/ <-> DROPPED #/ 
F Bagwocte ym XXDP MEDIA FROM THIS SYSTEM! !4/ 


Ax >A/ 
“HALT ON ERR: &#/ 

/AENTER CONDITIONS IN OCTAL 4/ 
THIS PROGRAM FORMA 


RFORMED ON TRACKS: 0 & 76 (DEFAULT) OR/ 
/ZALL TRACKS OF wy FORMATTED DISKETTE, IF SELECTED.24/ 
yg ty OUT ERROR # 


/RHELP? (Y OR N) N &/ 
/% INITIALIZE NOT DONE - RUN DIAGNOSTICS — OBVIOUS ERRA/ 
/ZSET DISKETTE TO SINGLE DENSITY? (Y OR N) N 
/AVERIFY DISKETTE CRC (ALL TRACKS)? (Y OR N) “N v7, 
/%FLOPPY DISK SYSTEM: 0 ADDRESS CHANGE? (Y OR N) N #/ 
/%1S ANOTHER FLOPPY DISK SYSTEM ,  _aeaeal (Y OR N) N @/ 
Hs SYSTEM a TO FORMATTER # 


/ESYSTEM:4/ 
/%NO DONE BIT AFTER INITIALIZE #/ 
/ ~>DROPPED FROM FORMATTERZA/ 





M 6 
CZRXEAO RXO2 FMTR PROG MACY11 30(1046) 20-SEP-78 10:48 PAGE 69-17 


CZRXEA.P11 20-SEP-78 10:48 MESSAGE TABLE SEQ 0077 
8659 016530 004445 041501 046040 mSG54: .ASCII /% AC LOW ERROR ~ IS FLOPPY DISK SYSTEM POWERED UP?4/ 
8660 016613 045 042011 044522 MSG55: .ASCII /% DRIVE NOT READY - IS DISKETTE IN DRIVE ; et CLOSED?4/ 
8661 016703 045 047504 054440 MSG56: .ASCII /%ZDO YOU WANT TO FORMAT MORE DISKETTES? (Y OR N 
8662 016766 051045 G46505 053117 MSG57: .ASCII /ZREMOVE FORMATTED ag AL & INSERT DISKETIES. 10 BE FORMAT TED#/ 
8663 017065 045 026455 020076 MSG58: .ASCII /%-=-> TYPE ''CR'’ WHEN READY# 
8664 017117 045 047506 046522 MSG59: .ASCII /ZFORMATTER DONE=RESTART MONI TOR OR UPDATE PROGRAM=-->TYPE CTRL C TO/ 
8665 017221 045 052123 051101 ASCII /%START THIS PROGRAM AGAIN # | 
8667 
8668 -SBTTL TEST HEADERS 


8671 017254 022445 037055 042522 MSGCD3: .ASCII /%%->READ SECTOR COMMAND ERR 4d 

8672 017311 045 026445 051476 MSGCD4: .ASCII /%%->SET DENSITY COMMAND ERR 

8673 917346 022445 0357055 042522 MSGCD5: .ASCII /%%->READ MAINTENANCE ee COMMAND ERR #/ 
8674 017417 045 026445 037055 MSGLP: ony /%%-->LOOP MODULE-ERR # 


8675 017446 
8676 SSS a a 
8677 
8678 
8679 SBTTL ERROR CODE STORAGE 
8681 017446 000 XER: -BYTE 0 sERR CODE - EXTENDED 
8682 017447 000 -BYTE 0 ; 
86835 017450 000 -BYTE Q ; 
017451 000 -BYTE 0 ; 
8685 017452 000 -BYTE 0 ; 
8686 017453 000 -BYTE 0 ; 
8687 017454 C00 -BYTE 0 ; 
8688 017455 000 -BYTE 0 ; 
BEBD i 
8690 
8691 
8692 
8693 SBTTL PATCH AREA 
8694 5 me a 
8695 
8696 017456 000000 PATCH: 0 
8697 017660 .=. +200 
rat: 017660 000000 LASTAD: 0 ;LAST ADDRESS NOT TO EXCEED 17776 
8700 


8701 000001 . END 





CZRXEAO RXO2 FMTR PROG MACY11 30(1046) cheat are 10:48 PAGE 70 
CZRXEA.P11 20-SEP-78 10:48 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0078 


ABASE = 177170 61274 6128 
ACDW1 = 000000 6128 
ACDW2 = 000000 6128 
ACLOW = 000010 59884 6684 
ACPUOP= 000000 6128 
ADDWO = 000000 6128 
ADDW1 = 000000 6128 
ADDW10= 000000 6128 
ADDW11= 000000 6128 
ADDW12= 000000 6128 
ADDW13= 000000 6128 
ADDW14= 000000 6128 
ADDW15= 000000 6128 
ADDW2 = 000000 6128 
ADDWS = 000000 6128 
ADDW4 = 000000 6128 
ADDWS = 000000 6128 
ADDW6 = 000000 6128 
ADDW7 = 000000 6128 
ADDWS = 000000 6128 
oe ne 
ce ne 


7088* 7096* 7104* 7114% 7119% 7124% 7133% 71404 7158* 
6211* 6423* 64354 


64404 6452 
6446 64534 





8564* 83694 8449 
ANSDEF 012646 8365* 83684 8446 8451 
61494 6328 6555 6343 6352 6363 7878 8437*  8446* 8456* 


APTENV= S999H 6197 6243 8351 


ATESTN= 000000 





B 7? 
CZRXEAO RXO2 FMTR PROG MACY11 30(1046) 20-SEP-78 10:48 PAGE 70-1 


CZRXEA.P11 20-SEP-78 10:48 CROSS REFERENCE TABLE =~ USER SYMBOLS SEQ 0079 
AUNIT = 000000 6128 
AUSWR = 000000 128 
AVECT1= 000264 61264 6128 
AVECT2= 6128 
011540 8005* 8023 8046* 8064 8150 8153 81964 
BAEMPT 51 7102 71464 
BAFILL 005116 7100 71454 
BA11 001770 63954 25 
BA231 007076 76964 7722 
BB30 007742 78824 7884 
BC13 2470 65034 6505 
BC20 2622 65844 6612 
BC22 003332 6771# 6802 
BC231 007126 77024 7719 
BDAUDL 010142 79444 = 7952 
010146 79454 7948 

BEOO 1306 6234 623564 6266 
BF OO 1316 62384 6240 
BITCNT 011526 8164* 8169 8176* 8179 8181* 81914 
BITLIM 011532 8009* 8050* 8179 819 

TMS 1530 8148* 8174 8185* 81924 
BITOFF 011534 8008*  8049* 8155 8157* 8162 81944 
BITPAS 011524 8147* 8182 8184* 81904 
BITO = 000001 5994 60424 
B1TOO = 000001 60424 
BITO1 = 060002 60424 
BITO2 = 000004 60424 
BITO3 = 000010 60424 
BITO4 = 000020 60424 
BITOS = 000040 60424 
BITO06 = 00/100 60424 
BITO7 = 060200 60424 
BITO8 = 000400 60424 
BITO9 = 001000 60424 
BIT1 = 000002 60424 
BiT10 = 002000 60424 
BIT11 = 004000 60424 
BIT12 = 010000 60424 
BIT13 = 020000 60424 6447 7966 
BIT14 = 040000 60424 
BIT15 = 100000 60424 
BIT2 = 000004 60424 
BITS = 000010 60424 
BIT4 = 000020 5992 60424 
BITS = 000040 59935 60424 
BIT6 = 000100 60424 6214 7889 8319 
BIT7 = 000200 60424 
BIT8 = 000400 6005 60424 6231 
BIT9 = 001000 60424 

TVEC= 14 60424 
BSINIT 012262 6452 7540 7544 82694 
BSINTX 012400 82914 
BTRP 000320 61184 6215* 6221* 6437* 6453« 
BIRPFL 000570 61654 6192* 6421* 6424 6445 8328* 
BTRP2 000322 6119# 6216* 6222% 6438%  6454* 
CKBITS 011314 8029 8070 8147# 


LF 
10:48 PAGE 70-2 





CZRXEAO RXO2 FMTR PROG MACY11 30(1046) 20-SEP-78 
CZRXEA.P11 20-SEP-78 10:48 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0080 
6358* 6368* 64954 
61544 6774 6780 6784 6794 6803 6805  6861* 6862 6878* 6879 6887* 7045 
7066 7077 7535* 7536 7991 
6861 6878 68994 
8006*  8047* 8149 81954 
8007 82014 
8207 8233# 
8208 82348 
8209 8210 8235¢ 
8212 = -B2 
8201 82274 
8202 82284 
8203 82294 
82 82304 
8205 82314 
8206 8232# 
60424 
60014 6345 6347 6979 
59944 7268 
60424 
61514 
6667* 7153" 7945 79614 
7232* 7248% 7262 7537* 80014 
8031 80354 
6156# 7227 7228% 7505* 7506* 7509 8003 8006 8019 
61554 7229% 7510* 8002 
6088* 61444 6190* 6370 7529 
60054 6233 
66114 
60424 
6670* 7155 79434 
59854 6337 6339-7517 
59924 
61404 6233 6235* 6887 
59834 6672 7086 7227 7595 7970 
85 8583 8585 
85814 
85694 8570 8578 
8572 85754 
8574 576M 
C345" 73538 7356* = 7363" 7371" 7374* 74408 74508 = 7710" 7711" +8092" = 809%" 8112 
S991# = 7516 
7432 7441% 7451*% 7455 7462 74678 
7335% 7346% 7349% 7364% 7367 7375 7379 73834 
7242% 7432 
7697" 7710 7712 7716* 7718 77254 
9934 7519 
7239 7255% 7272" 73354 
7696 7703 7717" 77264 
6810*  7064# 
= 59B7H# 7436 7446 
= 000020 59964 6780 7338 7434 7514 8090 
DSWR = 177570 60424 
DVSCDN 004366 6972* 6973 6981  6995* 7001* 70324 
DVSEC 004372 6976* 6977 6994* 6997 6998 6999 7002 7007* 7018* 7019 7034# 


CZRXEAO RXO2 FMTR PROG 
20-SEP-78 10:48 


CZRXEA.P11 


ENDOO 
END223 005100 
ERRBIT= 100000 





MACY11 30(1046) 


6971* 
6975* 


7126 
6679 


20-SEP-78 
69835 6985* 
6986* 6989 
62504 

65074 

66 

6851 6884 
7253 7257 
7794 78004 
7640 7645 
70084 

6607 66094 
7130 71354 


dD 7 
10:48 PAGE 70-3 
CROSS REFERENCE TABLE == USER SYMBOLS 


7010 
6991 


7267 


7654 


701i2* 7017* 70304 
7008 70364 


72744 


76564 


SEQ 0081 


e ¢ 
CZRXEAO RXO2 FMTR PROG MACY11 30(1045) 20-SEP-78 10:48 PAGE 70-4 
CZRXEA.P11 20-SEP-78 10:48 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0082 


ERRCHK 005164 6767* 72194 
ERRFLG 005526 7220* 7233* 7235* 7236 249% 7251" 7252 7263* 7265* 7266 7277# 
ERRSET 012240 6452 6677 6690 7238 7254 7271 7540 7544 82604 
000604 61714 
on 
82654 
7129* 71414 
61524 
7234* 7250* 7264* 7541* 8042¢ 
8072 80764 


61584  7230* 7513* anes 7519* 8044 8047 8060 
6327* 6334* 6342 6351* 6362* 7877% 83634 


6773* 68554 
6764* 6771 6772* 6788* 6790* 6798*  6800* 6801 68154 
6372* 64624 


61704 7219* 7533* 8083 8085* 8331 8335* 


64984 
6574 65784 
6673 66794 


(S17 
7609 7611 76144 





Po 
CZRXEAQ RXO2 FMTR PROG MACY11 30(1046) 20-SEP-78 10:48 PAGE 70-5 


CZRXEA.P11 
IC222 8=004122 
12231 * 004670 
I1C225 = 005334 
IC2251 005564 
IC2252 006070 
IC23 006650 
I1C233 = =007420 
DOO 001170 
1D10 164 
ID20 002624 
ID21 003170 
ID22 003350 
ID221 003716 
ID222 004162 
ID2231 004700 
ID225 005374 
ID2251 005632 
ID2252 114 
D23 74 
ID231 007130 
1E10 001714 
IE20 002646 
IE21 003216 
IE22 003374 
IE221 

E222 22 
IE2231 005032 
IE225 005462 
IE2251 005672 
1E2252 006134 
IE23 006704 
IE2351 007140 
IF10 001752 
IF 20 002676 
IF 21 003254 
IF22 34 
IF 222 25 
IF225 005422 
IF2251 005702 
IF2252 006144 
IF 23 006712 
1GOO 0013 
1G20 002722 
1G22 341 
1G222 

IG225 005470 
1G2251 005746 
1G2252 0061 
1G23 006722 
IHOO 001406 
IH20 002634 
IH22 003424 
IH2231 004562 
IH2251 

IH2252 0062 
iH25 007020 


20-SEP-78 10:48 


71074 
72444 


7617 
77934 


6581 
66874 


CROSS REFERENCE TABLE == USER SYMBOLS 


(6204 


65854 


74424 


6595 65974 


7452 


7355 7357 7361 7366 7373 
7453 74554 


73754 


SEQ 0083 


CZRXEAO RXO2 FMTIR PROG MACY11 30(1046) 
20-SEP-78 10:48 


CZRXEA.P11 
1100 001432 
1120 2706 
1122 003450 
1J00 001262 
1J22 003460 
Ik22_ 003470 
1K2231 004620 
IL22 003520 
IM22 003536 
INITCK 003002 
INI TDN= 

INITDP 003270 
INITPG 000514 
INITTS 004360 
INTLV = 000002 
IOTVEC= 000020 
LASTAD 017660 
LA221 003636 
LA223 004442 
LA232 007322 
LA30 7766 
LB00 001146 
[B10 001554 
LB221 003734 
LB222 004210 
LB225 005326 
LB2251 005624 
LCOO 001070 
LC10 001616 
[C222 00415 
LD10 001 
LD22_ 003370 
LD2231 005002 
LD2251 005662 
E20. 002672 
LE2231 005052 
LE2251 005740 
LE23. 007012 
LE231 007156 
LF = 000012 
LF22 003442 
LF23 006766 
L620. 002746 
LG222 004330 
LG2251 005774 
L623 006760 
LH2231 004710 
LH23 007052 
L122 003506 
Ly00. 001302 
LK2231 004640 
LOOP 006406 
LOOP1 006446 
LOOP2 006520 
LOOP3 006 
LPPRT 012402 


62614 
67924 


20-SEP-78 


66654 
6681* 


7275* 
7544 


829354 


6693* 
6763 
70274 


75 23a 


6697 
6855 


SF 
10:48 PAGE 70-6 
CROSS REFERENCE TABLE == USER SYMBOLS 


67024 


CZRXEAQ RxXO2 FMTR PROG MACY11 30(10466) 
20-SEP-78 10:48 


CZRXEA.P11 
LSIFLG 000520 
LSITRP QO12 
MSGCD3 017254 
MSGCD4 017311 
MSGCDS 017346 
MSGLP) 017417 
MSGI 013742 
MSG1O 014272 
MSG11 014326 
MSGI2 014367 
MSG15) 014411 
MSGI14 014452 
1 014506 
MSG16 014526 
MSG17 = 014547 
MSG2 014002 
MSG20 014556 
MSG21 014564 
MSG22 014570 
MSG23 014610 
MSG24 014701 
MSG25 014715 
MSG26 014722 
MSG27 014736 
MSG28B 014752 
MSG29 014776 
MSG3 014040 
MSG30 015031 
MSG31 015055 
MSG32 015077 
MSG35 015121 
MSG34 015140 
MSG35 015210 
MSG36 015217 
MSG37 39015223 
G38 015244 
MSG39 015 
MSG+ 014072 
MSG40 015404 
MSG41 015702 
MSG42 (015723 
MSG43 015726 
MSG44 015752 
MSG45 016045 
MSG46 016125 
MSG47 162 
MSG48 6271 
MSG49 016357 
MSG5 014127 
MSG50 016422 
MSG51 016425 
MSG52 16436 
MSG53 016475 
MSG54 016530 
MSG55 016613 


016703 


ool 


H 
10:48 PAGE 7 


0-7 
CROSS REFERENCE TABLE == USER SYMBOLS 


20-SEP-78 

6219" 7913 

8615¢# 

86184 

8021 8025 
a 

86364 

7977 86464 

86564 


8062 


8066 


86244 


SEQ 0085 


CZRXEAOQ RXO2 FMTR PROG ey 30(1046) 


CZRXEA.P11 10:4 
MSG57 016766 7880 
MSG58 017065 6502 
MSG5S9 = =017117 7387 
MSG6 14164 6246 
MSG7 014202 8211 
MSG8 014206 76235 
MSG9 014246 7637 
= 17 60074 
NEWPRI 010074 7897* 
NSMSG 012200 8185 
OCTP 013346 6250 
OCT 3334 6465 
QCTPE? 015352 85 
OCTPG 015526 8513 
OCTPGX 015566 85574 
OCTPGO 013544 8548 
OCTPG1 0135550 8508 
OCTPX 013524 854354 
OCTPO Q13 8504 
OCTP1 013410 8511 
OCTP2 013416 8514 
OCTPS 013512 8505 
OF L 013570 8502s 
OPINT 001456 6225* 
OTSYDN 007676 6245* 
OUTCMD 004524 7079* 
T 005124 7089 
PATCH 017456 
PCNTR 000522 61464 
PIRQ = 177772 60424 
PIRQVE= 000240 60424 
PRIHI 010020 7078* 
PRILO 010034 7080* 
PRTDRV 011154 7378* 
PRTKSC 011232 7270* 
PRTSYS 011132 6401* 
PRO = 60424 
PRI = 60424 
PR2 = 000100 60424 
PRS = 000140 60424 
PR&4 = 000200 60424 
PRS = 000240 60424 
PR6 = 000300 60424 
PR7 = 000340 60424 
PS a 76 60424 
PSW = 177776 60424 
PTSIDF 011230 7336* 
PTSYST 007062 7634* 
PWRVEC= 000024 60424 
RDMNST= 000012 600354 
RDSEC = 60024 
RDYWD 010226 6668* 
REGS 000510 61414 
REGSO 000314 61164 
REGS1 000316 61174 
RESVEC= 000010 60424 


20-SEP-78 


86654 


86124 


8549 


7115 
6251* 


8096* 
6682* 


7103* 
6406 
6427* 


72384 
79204 


7992 
8024 


8532 


8552* 


7120 
6252 


81114 
6694 * 


10:48 PAGE 7-8 
CROSS REFERENCE TABLE <= USER SYMBOLS 


72544 


8104* 
8028 


8537 


85594 


7125 


7377* 


7460* 


7118* 
6427 
7927 


72714 


8113* 
8061 


8540 


7134 


7457* 


7707s 


7122* 
7928 


75404 


8118+ 
8065 


85474 


71534 


7459* 


7709* 


7131* 


75444 

8132s 8135* 8289* 8339 
8069 85024 

7701* 7788* 7796* 8089« 
8095* 8114 812354 

7154* = =7156 7945 7954 


SEQ 0086 


85054 


81024 


CZRXEAQ RXO2 FMTR PROG ott 30(1046) 


CZRXEA.P11 
RXCSAD 000472 
RXDBAD 000474 
RXINIT= 040000 
RXINTO 012404 
RXINT1 012412 
RXVECT 000476 
RX2BIT= 004000 
RYDLY 010224 
RYDX 010222 
SECADR 005114 
SECTR 000500 
SETDEN= 000010 
™SG 012222 
SETPIX 010072 
SETPRI 010050 
SIDE 011226 
SIDE1 = 001000 
SIDRDY= 000002 
SSUCAD 010076 
SSUCOF 010126 
STACK = 001000 
START 001000 
STFLG 000576 
STKLMT= 177774 
STSTBT 006266 
C 000610 
SWR 000504 
SWREG 000324 
SwO = 000001 
swOO = 000001 
SwO1 = 000002 
SwO2 = 000004 
SwO3 = 000010 
Sw04 = 000020 
SWOS = 000040 
SwO6 = 000100 
SwO7 = 000200 
SWO8 = 000400 
SwO9 = 001000 
SWI = 000002 
Sw10 = 002000 
Sw11 = 004000 
Swi2 = 010000 
SW13 = 020000 
Sw14 = 040000 
Sw15 = 100000 
Sw2 = 000004 
Sw3 = 000010 
SW4 = 000020 


6210* 
7983 


20-SEP-78 

6212 6422* 

8001 8027 
87 96 

7929* 7987 

6666 

6225 82994 

83 

7228 7506 
5 

71444 

7004 7006* 

7244 

79134 

7362* 7370* 

6794 7340 

7452 

7221* 76433* 

6671*  6765* 

6090 61894 

75054 

6265*  6570* 

7795* 936 

6231 6324* 

6585 6597 

7979 

6324 6464 

7540 7544 

8051 

8015 8056 


6439 


7104 
8042 


7019* 


8277 


af 
10:48 PAGE 70-9 
CROSS REFERENCE TABLE <= USER SYMBOLS 


6667 
7119 


6666* 


7114 
8068 


7073 


7075 


7714* 


6779* 


6672 
7124 


8117 


6859* 


6679 
7133 


81224 


6978* 


7618* 
6359* 


6691 
7268 


733/* 


7088 
7436 


7698* 


7153 
7462 


7926* 


SEQ 0087 


7156 
7446 


(9564 


K 7 
10:48 PAGE 70-10 


CZRXEAO RXO2 FMTR PROG MACY11 30(1046) 20-SEP-78 
CZRXEA.P11 20-SEP-78 10:48 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0088 
SWS = 000040 60424 
SW6 = 000100 60424 
SW7 = 000200 6901 60424 
SWB = = 0004 60424 
Sw 3s = :«001 60424 
6242* 65674 
7613* 7619% 77454 
6594* x 67634 
61724 7783 7785 7793 7800* 7819% 7842% 7953" 8033 8034* 8074 8075* 
61674 6261 6611 7622* 7633%*  7641* 7650* 7885* 7888 
61664 6613 7623* 7637% 7644% 7653* 
10* 76074 
7639*  7646* 7655*% 77824 
pT rer 6865*  6876* 6877 6882* 6885* 68924 
*® 
61744  6571* 6578 6696*  6699* 6769 6782 6786 6792 6796 7342 7350 7360 
368 7379* 7438 7444% 76448 7454% 7462* 7608 7703 7705 7791 
ky 6665* 7065* 7222 7338 340 7358 7434 7507 7511 7514 7517 7535 
6874 68835* 6886* 68944 
61804 6587 6777* 7631 7635* 7648 7652* 7699 
6771* 68144 70 6873* 6888*  6987* 7014 
61764 6567* 6590 6592* 8299 
7075* 8134 81404 
7074* 8131 81384 
61604 7070* 7072* #£=7816 
61754 6576* 6580 7614 7799 
61794 
68954 
61814 6599 7627 7636*  7643* 
68154 
61774  6568* 6602 6604* 8306* 
81414 
81394 
61614 7839 
8007* 8048+ 8171 81974 
60424 
8481 84964 
8483 864 
84894 8492 
61624 8384* 8389 8398* 
1634 
61644 8581 8584 
oe 8597 86004 
61484 6504 7883 8313 8387 8392 8395 8405* 8406 8440 8444 8448+ 8449 
8451 8456 8464* 8468* 8471 8472s 
8394 8397 8411 8414 84234 
6107 8468 
By 6214* 7889* 7890* 8319* 8320* 8463 8465* 8466 
61694 6436* 7226* 7246% 7260* 7534% 8086 8334 
61474 6236 7949*  8479% 8480 8482 8486* 8489% 8493% 8541* 8554* 8566* 8568 
8571 8576* 8595 
TOE 0402 7954* 7970 79954 
TOG 13700 7950 8484 8487 8490 8494 8542 8555 85914 8594 





. ¢ 
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CZRXEA.P11  20-SEP=78 10:48 CROSS REFERENCE TABLE ~~ USER SYMBOLS SEQ 0089 

TOPRT 010232 7955 7966 

TOPRTX 010400 7968 7980 79930 

TPB = 000306 61094 8471s  8573*  8575* 8595 

TPS 000304 61084 8469 8569 8593 8598 

TPVEC = 000064 60424 

TRACK — 000502 61384 6989*  7008* 7013* 7016* 7074 7076 

TRAP 012474 6437 83284 

TRAPVE= 000034 60424 

TRAPX 566 8343 83454 

TRAP! 012532 8332 83364 

TRAP2 012550 8330 83404 

TRBIT = 000200 5984" 709% 7103) 7111 «7118 = 7122S 7131 

TRKADR 005112 7076* 7116 71438 

TRKSEC 004016 6809" 6 

TRTVEC= 000014 6042« 

TSHDCK 011042 7969 = 8012* + 8053* 80834 82718 

TSTERR 000554 6159" 8035s  8076* 

TTAR 013036 8365" 84374 5 

TTAR1 8441 84444 

TTAR2 013106 8445 84484 

TTARS 013146 8450 8452 84564 

TTIN 013156 6503" 7882* 8312* 8386 8439* 84634 

TTINT 012420 6074 83120 

TTIN1 § 013172 84664 8467 

TT 3206 8469% 8470 

TTITFG 000632 61824 8313* 8314 

TTOUT § 013232 6196 6247 6326" 6331* 6333" 6341*  6350* 6361* 6403 6412 6450 6463 6501 
6502s 6614" 6676"  6683* 6686" 6689"  6695*  7380* 7458* 7463* 7694* 7746* 7755s 
7789* + 7790% 7797" 7798  7876* 7880* 7881" 7887" 7973 7976 7978 7982 7986 
7990 8014 8018 8022 8026 8055 8059 8063 8067 8087 8102* 8111* 8116: 
8129" 8130 8133* 8168 8173 8175 8280s 8285* 8316* 8335 8337 8424 8454s 
8479# 8485 8495 

TTR 012652 6410 6419 6471 83844 

TTRO 012660 8386" 8408 

TTR1 012706 8 83924 

TIRIA 012722 8393 83954 

TTRIB 012736 83 83984 

TTR2 012774 8391 84094 

TIR3 8410 84124 

TTR4 013014 8413 84154 

TTRS 013016 8390 841 

TTWAIT 000532 6150# 6248*  6265* 8596 

002154 64244 

UA231 007246 77218 

UC22. 003512 6778 6785 6787 6789 6791 6795 6797 6799 6801# 

UC231 007232 77184 

VALWD 005110 7132071424 

VECT 000512 61424 6398" 6413 6415 6420 6428 

VECTO 000310 61144 6224 6398 6428s 

VECT1 312 6115# 6227 

WATCHO 007474 6596s 78 

WATCH1 007572 6608* 78294 

WATINO 007670 6593* 6766* 7806  7808* 78484 

WATIN1 007672 6605" 7829 7831" 78494 

WCNTMX 007674 7812 = 7835 = 7850# 


WONTRO 007566 7809* 7811* 7812 7814* 78224 


CZRXEAO RXO2 FMTR PROG MACYi1 30(1046) 


CZRXEA.P11 


WCNTR1 
WOCT 





20-SEP-78 10:48 


of 


6130 


M 7 
10:48 PAGE 70-12 


CROSS REFERENCE TABLE == USER SYMBOLS 


20-SEP-78 
7835 7837* 
7087 7090 
7816 7818* 
7839 7841* 
7100* 7102* 
8457# 

78204 

78434 

68114 

70204 

75464 

6243 8351 
8353* 


78454 

7092 7098 =7107 7109 7127 
(82354 

78464 7 

7112* 971135" = =7116% 7117" 7123s 


7536* 


7132* 


71394 


7158 


SEQ 0090 


N 7 
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CZRXEAQ RXO2 FMTR PROG MACY11 30(1046) 20-SEP-78 

CZRXEA.P11 20-SEP-78 10:48 CROSS REFERENCE TABLE == USER SYMBOLS 
SMSGTY 000400 61284 8261* 8354« 

SMTYP1 000431 612 

SMTYP2 000435 61284 

SMTYPS 000441 61284 

SMTYP4 000445 61284 

SPASS 000406 61284 6191* 6252* 

SPASTM 000464 61304 

SSVPC = 000046 60694 

$ G 000422 61284 6205 

STESTN 000404 61284 

STSTM 000462 61304 

SUNIT 000412 61284 

SUNITM 000466 61304 

$U 000424 61284 

SVECT1 000450 61284 6206 

SVECT2 000452 61284 

. = 017662 oes, o 60694 60734 60794 60834 60874 60944 60984 
$x = 000456 61304 


61024 


61244 


61304 


61854 


SEQ 0091 


86754 


CZRXEAO RXO2 FMTR PROG 


CZRXEA.P11 
COMMEN 15264 
ENDCOM 15384 
ERNUM 60284 
ERR 
ERROR 60424 
ESCAPE 16544 
GETPRI 12784 
GETSWR 17254 
T 439 
NEWTST 15854 
POP 21034 
PUSH 20954 
REPORT 53524 
SCOPE 60424 
SETPRI 12464 
SE TUP 13024 
SKIP 16884 
SLA 14784 
SPACE on 
STARS 14474 
SU 41 
TTYOUT 60354 
7798 
TYPBIN 20594 
TYPDEC 0094 
TYPNAM 17794 
TYPNUM 3 =-:119776# 
TYPOCS 19 
TYPOCT 18924 
TYPTXT 18464 
SSESCA 16674 
SSNEWT 16214 
SSSKIP 17014 
-EQUAT 1764 
- HEADE SO# 
-KT11 3194 
-SETUP 11804 
- SWRHI 924 
-SACT1 49614 
-SAPTB 50054 
-SAPTH 52614 
~SAPTY 54 
-SASTA 53074 
- SCATC 9054 
-SCMTA 10164 
‘ 45914 
‘ 47144 
- $DIV 44944 
. SEOP 21624 
-SEQUA 60414 
-SERRO 26434 
-SERRT 28384 
: T 44314 
41424 
-SRAND 42184 
SRDDE 38144 


20-SEP-78 


6477 
6677 


60424 
60424 


60424 


6502 
7880 


MACY11 30(1046) 
10:48 


6690 
6690 


6069 


6676 
7881 


20-SEP-78 


7238 
7238 


6128 


6683 
7887 


7254 
7254 


6130 


6686 
8102 


(271 
7271 


6689 
8111 


10:48 PAGE 71 
CROSS REFERENCE TABLE -- MACRO NAMES 


7540 7544 

7540 7544 

6695 7380 7458 7463 7694 7789 77 
8116 8129 8130 8133 8316 = 


SEQ 0092 


7797 


. + 
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SEQ 0093 


CZRXEA.P11 20-SEP-78 10:48 CROSS REFERENCE TABLE == MACRO NAMES 
SRDOC 37234 
SREAD 33284 

-SR2AZ 48584 

. SAVE 

-$SB2D 46754 

-$ 47764 

-$SCOP 23974 

-SSIZE 42714 

: 48144 

-STRAP 39914 

-<STYPB 32214 

-STYPD 3144 

-STYPE 29254 

-STYPO 530484 

- $40CA 9444 

.1170 4984 


- ABS. 017662 0CO 


ERRORS DETECTED: 0 


CZRXEA, CZRXEA/CRF=CZRXEA. SML,CZRXEA.P11 
RUN-TIME: 16 14 1 SECONDS 

RUN-TIME RATIO: 38/31=1.2 

CORE USED: 55K (70 PAGES) 


